Hoe maakt u in Outlook een zoekmap aan voor alle onbeantwoorde e-mails?

Als u de onbeantwoorde e-mails in uw Outlook handmatig één voor één moet opsporen, kost u dat veel tijd. In dit artikel leg ik uit hoe u eenvoudig een zoekmap kunt instellen voor al uw onbeantwoorde berichten.

Maak een zoekmap voor alle onbeantwoorde e-mails in Outlook met VBA-code

---

Maak een zoekmap voor alle onbeantwoorde e-mails in Outlook met VBA-code

De volgende VBA-code helpt u een zoekmap te maken waarin alle onbeantwoorde e-mails automatisch worden geplaatst. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.

VBA-code: Maak een zoekmap voor onbeantwoorde 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. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt nu een meldingsvenster zoals op de volgende afbeelding:

4. Klik op de knop OK. U krijgt nu een map Niet-beantwoorde e-mails onder Zoekmappen voor elk account in uw Outlook, en alle onbeantwoorde e-mails worden hier weergegeven. Zie de afbeelding: