Wie erstellt man in Outlook einen Suchordner für alle ungelesenen E-Mails?

Wenn Sie die ungeantworteten E-Mails in Ihrem Outlook überprüfen möchten, kostet das eine zeitaufwändige Einzelsuche. In diesem Artikel zeige ich Ihnen, wie Sie ganz einfach einen Suchordner für alle ungeantworteten Nachrichten erstellen.

Erstellen eines Suchordners für alle ungeantworteten E-Mails in Outlook mit VBA-Code

---

Erstellen eines Suchordners für alle ungeantworteten E-Mails in Outlook mit VBA-Code

Der folgende VBA-Code unterstützt Sie dabei, einen Suchordner zu erstellen, der alle ungeantworteten E-Mails übersichtlich sammelt. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie das folgende Makro in das Modul-Fenster ein.

VBA-Code: Erstellen eines Suchordners für ungeantwortete 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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint daraufhin ein Dialogfeld wie im folgenden Screenshot gezeigt:

4. Klicken Sie auf die Schaltfläche OK, und schon erscheint unter jedem Konto in Ihrem Outlook im Bereich Suchordner ein Ordner namens Nicht beantwortete E-Mails, der alle ungeantworteten E-Mails anzeigt. Siehe Screenshot: