I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come creare una cartella di ricerca per tutte le e-mail non risposte in Outlook?

Se si desidera controllare le e-mail non risposte in Outlook, per cercarle uno per uno ci vorrà molto tempo. In questo articolo, parlerò della creazione di una cartella di ricerca per tutti i messaggi non risposte.

Crea una cartella di ricerca per tutte le e-mail non risposte in Outlook con codice VBA


Crea una cartella di ricerca per tutte le e-mail non risposte in Outlook con codice VBA

Il seguente codice VBA può aiutarti a creare una cartella di ricerca in cui verranno inserite tutte le e-mail non risposte, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incollare la seguente macro in Modulo Finestra.

Codice VBA: crea una cartella di ricerca per e-mail non risposte:

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. Quindi, premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio come mostrato di seguito:

cartella di ricerca doc per 1 non eseguita

4. Clic OK pulsante, ora, otterrai un Email non inviate cartella sotto il Cartelle ricerche per ogni account in Outlook e tutte le e-mail non risposte sono visualizzate qui, vedi screenshot:

cartella di ricerca doc per 2 non eseguita



Kutools for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.