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:
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:
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.
