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

Author: Xiaoyang Last Modified: 2025-08-06

Wenn Sie die unbeantworteten E-Mails in Ihrem Outlook überprüfen möchten, würde das manuelle Suchen viel Zeit in Anspruch nehmen. In diesem Artikel werde ich darüber sprechen, wie man einen Suchordner für alle unbeantworteten Nachrichten erstellt.

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

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

Der folgende VBA-Code kann Ihnen helfen, einen Suchordner zu erstellen, in dem alle unbeantworteten E-Mails gespeichert werden. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 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 im Modulfenster ein.

VBA-Code: Erstellen eines Suchordners für unbeantwortete 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 dann die Taste F5, um diesen Code auszuführen, und es wird ein Dialogfeld wie im folgenden Screenshot angezeigt:

4. Klicken Sie auf die Schaltfläche OK. Nun erhalten Sie einen Ordner namens Nicht beantwortete E-Mails unter den Suchordnern für jedes Konto in Ihrem Outlook, und alle unbeantworteten E-Mails werden hier angezeigt, siehe Screenshot: