Come creare una cartella di ricerca per tutte le email senza risposta in Outlook?

Se desidera controllare le email senza risposta nel Suo Outlook, cercarle una per una richiederà molto tempo. In questo articolo le mostrerò come creare una cartella di ricerca per tutti i messaggi rimasti senza risposta.

Creare una cartella di ricerca per tutte le email senza risposta in Outlook con codice VBA

---

Creare una cartella di ricerca per tutte le email senza risposta in Outlook con codice VBA

Il seguente codice VBA può aiutarLa a creare una cartella di ricerca in cui verranno inserite tutte le email senza risposta; proceda come segue:

1. Tenga premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Fare clic su Inserisci > Modulo, quindi incollare la seguente macro nella finestra del Modulo.

Codice VBA: crea una cartella di ricerca per le email senza risposta:

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. Premere quindi il tasto F5 per eseguire questo codice; apparirà una finestra di dialogo come mostrato nello screenshot seguente:

4. Faccia clic sul pulsante OK; verrà creata una cartella denominata Email senza risposta sotto Cartelle di ricerca per ciascun account nel Suo Outlook, e tutte le email senza risposta verranno visualizzate qui. Veda lo screenshot: