Come creare rapidamente una cartella di ricerca per tutte le e-mail senza risposta tramite VBA di Outlook

Per controllare più facilmente le e-mail senza risposta in Outlook, puoi creare una cartella di ricerca per tali e-mail. Ora, questo articolo ti introdurrà come ottenerlo con Outlook VBA.

Nel precedente articolo "Come evidenziare automaticamente le e-mail importanti a cui non hai risposto in Outlook", puoi imparare un mezzo per mostrare le e-mail vitali a cui non hai risposto in un colore specifico. Ma potresti sentirlo ancora problematico in quanto devi esaminare tutte le cartelle di posta una per una. Pertanto, vorresti raccogliere direttamente tutte queste e-mail in una cartella di ricerca. Ora, di seguito, ti insegneremo a utilizzare VBA per creare rapidamente una tale cartella di ricerca.

Crea una cartella di ricerca per tutte le email senza risposta

1. Innanzitutto, avvia l'applicazione Outlook.
2. Quindi, premi i tasti "Alt + F11" per accedere all'editor VBA.
3. Successivamente, copia il seguente codice VBA in un modulo che non è in uso.

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim strScope As String
    Dim strRepliedProperty As String
    Dim strFilter As String
    Dim objSearch As Outlook.Search
 
    'Specify the folders to be searched
    'Here we use Inbox folder for an example
    strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
 
    'Search filter
    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
 
    'Save the search folder
    objSearch.Save ("Not Replied Emails")
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub

4. Successivamente, posiziona il cursore in questa subroutine.
5. Successivamente, fai clic sul pulsante "F5" per attivare questa macro.
6. Al termine della macro, verrà visualizzato un messaggio, come nella figura seguente.
7. Infine, puoi vedere una nuova cartella di ricerca chiamata "E-mail senza risposta", che contiene tutte le e-mail senza risposta nella Posta in arrivo.

Modifica l'ambito di ricerca della cartella di ricerca

Nel mio codice VBA, questa cartella di ricerca cerca solo nella cartella Posta in arrivo predefinita. Se desideri modificare l'ambito di ricerca, puoi seguire i passaggi seguenti.

1. Prima di tutto, fai clic con il pulsante destro del mouse sulla cartella di ricerca.
2. Quindi, scegli "Personalizza questa cartella di ricerca" dal menu contestuale.
3. Successivamente, nella finestra di dialogo popup "Cartella di ricerca personalizzata", fai clic sul pulsante "Sfoglia".
4. Successivamente, verrà visualizzata una nuova finestra di dialogo "Seleziona cartella/e". In esso puoi scegliere le cartelle in cui cercare le email a cui non hai risposto.
5. Infine, dopo aver selezionato, puoi semplicemente fare clic su diversi "OK" per applicare le modifiche.

Elimina gli errori frequenti di Outlook

È comune ricevere messaggi di errore in Outlook, come errori relativi a errori di invio/ricezione, errori relativi a file PST di Outlook inaccessibili e così via. Pertanto, per affrontare questi errori in modo rapido ed efficace, è necessario imparare a individuare e utilizzare il file strumento di riparazione della posta in arrivo. Inoltre, in caso di guasto dello strumento integrato, si suggerisce di procurarsi un'altra eccellente utilità esterna, come ad esempio DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui SQL Server riparazione e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com