Hogyan hozhatunk létre keresési mappát az összes nem válaszolt e-mailhez az Outlook programban?

Ha ellenőrizni kívánja a nem válaszolt e-maileket az Outlook programban, az egyesével történő keresés sok időt vesz igénybe. Ebben a cikkben arról fogok beszélni, hogy létrehozzunk egy keresési mappát az összes nem válaszolt üzenethez.

Hozzon létre egy keresési mappát az összes megválaszolatlan e-mailhez az Outlookban, VBA kóddal

Hozzon létre egy keresési mappát az összes megválaszolatlan e-mailhez az Outlookban, VBA kóddal

A következő VBA-kód segíthet létrehozni egy keresési mappát, ahová az összes nem válaszolt e-mailt felteszi.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA-kód: Hozzon létre egy keresési mappát a megválaszolatlan e-mailek számára:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz a következő képernyőkép szerint:

4. Kattints OK gombra, most kap egy Nem válaszolt e-mailek mappa a Keresés mappákban az Outlook összes fiókjához, és az összes nem válaszolt e-mail itt jelenik meg, lásd a képernyőképet: