Hur skapar jag en sökmapp för alla e-postmeddelanden som inte besvaras i Outlook?

Om du vill kontrollera de ej besvarade e-postmeddelandena i din Outlook tar det mycket tid att söka i dem en efter en. Denna artikel kommer jag att prata om att skapa en sökmapp för alla obesvarade meddelanden.

Skapa en sökmapp för alla icke-svarade e-postmeddelanden i Outlook med VBA-kod

Skapa en sökmapp för alla icke-svarade e-postmeddelanden i Outlook med VBA-kod

Följande VBA-kod kan hjälpa dig att skapa en sökmapp där alla obesvarade e-postmeddelanden läggs till, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Skapa en sökmapp för ej svarade e-postmeddelanden:

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta visas som följande skärmdump visas:

4. Klicka OK knappen, nu får du en Ej besvarade e-postmeddelanden mapp under Sök i mappar för varje konto i din Outlook, och alla ej besvarade e-postmeddelanden visas här, se skärmdump: