Note: The other languages of the website are Google-translated. Back to English
English English

 Come creare una cartella di ricerca per tutte le e-mail senza risposta in Outlook?

Se desideri controllare le e-mail senza risposta in Outlook, cercarle una per una richiederà molto tempo. In questo articolo, parlerò della creazione di una cartella di ricerca per tutti i messaggi senza risposta.

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


Crea una cartella di ricerca per tutte le e-mail senza risposta 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 senza risposta, per favore fai come segue:

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

2. Clic inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: crea una cartella di ricerca per le e-mail 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. Quindi, premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio come mostrato nella seguente schermata:

cartella di ricerca doc per senza risposta 1

4. Clic OK pulsante, ora otterrai un file Email non risposte cartella sotto il Cartelle di ricerca per ogni account in Outlook e tutte le e-mail senza risposta vengono visualizzate qui, vedi screenshot:

cartella di ricerca doc per senza risposta 2


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite