Wie erstelle ich einen Suchordner für alle nicht beantworteten E-Mails in Outlook?

Wenn Sie die nicht beantworteten E-Mails in Ihrem Outlook überprüfen möchten, dauert es sehr lange, sie einzeln zu durchsuchen. In diesem Artikel werde ich über das Erstellen eines Suchordners für alle nicht beantworteten Nachrichten sprechen.

Erstellen Sie einen Suchordner für alle nicht beantworteten E-Mails in Outlook mit VBA-Code

Erstellen Sie einen Suchordner für alle nicht beantworteten E-Mails in Outlook mit VBA-Code

Der folgende VBA-Code kann Ihnen beim Erstellen eines Suchordners helfen, in dem alle nicht beantworteten E-Mails abgelegt werden. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

VBA-Code: Erstellen Sie einen Suchordner für nicht beantwortete E-Mails:

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. Dann drücken F5 Geben Sie die Taste ein, um diesen Code auszuführen, und ein Eingabeaufforderungsfeld wird wie folgt angezeigt:

4. Klicken Sie OK Schaltfläche, jetzt erhalten Sie eine Nicht beantwortete E-Mails Ordner unter dem Ordner durchsuchen Für jedes Konto in Ihrem Outlook und alle nicht beantworteten E-Mails werden hier angezeigt (siehe Screenshot).