Πώς να δημιουργήσετε ένα φάκελο αναζήτησης για όλα τα μηνύματα που δεν απαντήθηκαν στο 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 κλειδί για την εκτέλεση αυτού του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

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