Come filtrare le e-mail di Outlook usando una regola con uno script VBA?

Alcune cose non sono possibili utilizzando le regole di posta elettronica predefinite come la ricerca di oggetti o corpi di messaggi con caratteri jolly. Puoi fare più parole ma non è lo stesso se hai bisogno di parole distanti tra loro. Come posso scrivere il mio codice Visual Basic Applications Edition per filtrare la posta elettronica di Outlook?

Ho guardato in alto e in basso per tutte queste parti necessarie per realizzare questo semplice filtro. I filtri procmail Unix sono così facili da usare al confronto. Tutte le procedure guidate di Microsoft Outlook si frappongono a un semplice filtro tramite caratteri jolly. Mentre molte condizioni del filtro e-mail fornite da Microsoft sono utili per impostazione predefinita, nulla può battere la flessibilità e la personalizzazione del codice in esecuzione.

1. Scrivi il tuo codice

Alt-F11 visualizza l'editor di codice VBA. Fare doppio clic su ThisOutlookSession. Scrivi il tuo codice Nel mio caso sta usando un regex nella riga dell'oggetto e lo sposta non nella DefaultFolder ma nel mio pst in una sottocartella.

Sub filter(Item As Outlook.MailItem)
    Dim ns As Outlook.NameSpace
    Dim MailDest As Outlook.Folder
    Set ns = Application.GetNamespace("MAPI")
    Set Reg1 = CreateObject("VBScript.RegExp")
    Reg1.Global = True
    Reg1.Pattern = "(.*Abc.20.*)"
    If Reg1.Test(Item.Subject) Then
        Set MailDest = ns.Folders("Personal Folders").Folders("one").Folders("a")
        Item.Move MailDest
    End If
End Sub

2. Esegui il codice per ogni e-mail in arrivo con una regola.

In regole seleziona "Gestisci regole e avvisi ...". La nuova regola sarà simile

Apply this rule after the message arrives run Project1.ThisOutlookSession.filter

Per ottenere ciò, per il Passaggio 1: selezionare le condizioni: basta fare clic su Avanti. Conferma che si applica a tutti i messaggi facendo clic su OK. Per Seleziona azione / i selezionare "Esegui uno script", quindi fare clic per selezionare lo script del filtro e selezionare Avanti o Fine. Per Seleziona eccezioni, fare clic su Avanti o Fine. Dagli un buon nome come vba-filter e seleziona Attiva questa regola. fai clic su Fine. Poiché copia in una cartella locale, fai clic su OK quando chiede di confermare che questa regola non funzionerà per le e-mail che controlli online o da un altro dispositivo. Fare clic su OK nella finestra di dialogo Regole e avvisi.

3. Outlook non piace quando le macro non sono firmate. Per autofirmare le tue macro, crea un certificato e usalo .