Cum se creează un folder de căutare pentru toate e-mailurile fără răspuns din Outlook?

Dacă doriți să verificați e-mailurile fără răspuns din Outlook, să le căutați unul câte unul va dura mult timp. În acest articol, voi vorbi despre crearea unui folder de căutare pentru toate mesajele fără răspuns.

Creați un folder de căutare pentru toate e-mailurile fără răspuns din Outlook cu cod VBA

Creați un folder de căutare pentru toate e-mailurile fără răspuns din Outlook cu cod VBA

Următorul cod VBA vă poate ajuta să creați un dosar de căutare în care va pune toate e-mailurile fără răspuns, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module Fereastră.

Cod VBA: creați un folder de căutare pentru e-mailurile fără răspuns:

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. Apoi, apăsați F5 tasta pentru a rula acest cod și se afișează o casetă de prompt, după cum se arată în următoarea captură de ecran:

4. Clic OK buton, acum, veți primi un E-mailuri fără răspuns dosar sub Căutați dosare pentru fiecare cont din Outlook și toate e-mailurile fără răspuns sunt afișate aici, consultați captura de ecran: