Note: The other languages of the website are Google-translated. Back to English

 Πώς να δημιουργήσετε ένα φάκελο αναζήτησης για όλα τα μηνύματα που δεν απαντήθηκαν στο Outlook;

Εάν θέλετε να ελέγξετε τα μηνύματα που δεν απαντήθηκαν στο Outlook, για να τα αναζητήσετε ένα προς ένα θα χρειαστεί πολύς χρόνος. Αυτό το άρθρο, θα μιλήσω για τη δημιουργία ενός φακέλου αναζήτησης για όλα τα μηνύματα που δεν έχουν απαντηθεί.

Δημιουργήστε ένα φάκελο αναζήτησης για όλα τα μηνύματα που δεν απαντήθηκαν στο Outlook με κώδικα VBA


Δημιουργήστε ένα φάκελο αναζήτησης για όλα τα μηνύματα που δεν απαντήθηκαν στο Outlook με κώδικα VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να δημιουργήσετε έναν φάκελο αναζήτησης όπου θα τοποθετούνται όλα τα μηνύματα που δεν έχουν απαντηθεί, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Δημιουργήστε ένα φάκελο αναζήτησης για μηνύματα ηλεκτρονικού ταχυδρομείου που δεν έχουν απαντηθεί:

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim xSearch As Outlook.Search
    Dim xScope As String, xFilter As String
    Dim xRepliedProperty As String
    Dim xFolder As Folder, xSubFolder As Folder
    On Error Resume Next
    xScope = ""
    For Each xFolder In Outlook.Application.Session.Folders
        Set xSubFolder = xFolder.Folders("Inbox")
        xScope = "'" + xSubFolder.FolderPath + "'"
        xRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
        xFilter = Chr(34) & xRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & xRepliedProperty & Chr(34) & " <> 103"
        Set xSearch = Outlook.Application.AdvancedSearch(Scope:=xScope, Filter:=xFilter, SearchSubFolders:=True, Tag:="SearchFolder")
        xSearch.Save("Not Replied Emails").ShowItemCount = olShowTotalItemCount
        Set xSearch = Nothing
        Set xSubFolder = Nothing
    Next
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

φάκελος αναζήτησης εγγράφων για μη απάντηση 1

4. Κλίκ OK κουμπί, τώρα, θα πάρετε ένα Μη απαντημένα μηνύματα ηλεκτρονικού ταχυδρομείου φάκελο κάτω από το Αναζήτηση φακέλων για κάθε λογαριασμό στο Outlook και όλα τα μηνύματα που δεν απαντήθηκαν εμφανίζονται εδώ, δείτε το στιγμιότυπο οθόνης:

φάκελος αναζήτησης εγγράφων για μη απάντηση 2


Kutools για Outlook - Φέρνει 100 προηγμένες δυνατότητες στο Outlook και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL