Hoe maak je een zoekmap aan voor alle niet-beantwoorde e-mails in Outlook?

Als u de niet-beantwoorde e-mails in uw Outlook wilt bekijken, zal het veel tijd kosten om ze een voor een te doorzoeken. In dit artikel zal ik het hebben over het maken van een zoekmap voor alle niet-beantwoorde berichten.

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

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

De volgende VBA-code kan u helpen bij het maken van een zoekmap waarin alle niet-beantwoorde e-mails worden geplaatst, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module Venster.

VBA-code: maak een zoekmap voor niet-beantwoorde 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 sleutel om deze code uit te voeren, en er verschijnt een promptvenster zoals in de volgende schermafbeelding:

4. Klikken OK knop, nu krijg je een Niet beantwoorde e-mails map onder de Zoekmappen voor elk account in uw Outlook, en alle niet-beantwoorde e-mails worden hier weergegeven, zie screenshot: