Come evidenziare automaticamente parole chiave specifiche dalle email in arrivo in Outlook

In Outlook potresti ricevere centinaia o addirittura migliaia di email ogni giorno: hai mai desiderato evidenziare automaticamente alcune parole chiave specifiche nei messaggi in arrivo? In questo articolo ti presento un codice VBA per evidenziare automaticamente le parole chiave da te indicate nelle email in arrivo in Outlook.

Evidenzia automaticamente le parole chiave dalle email in arrivo

---

Evidenzia automaticamente le parole chiave dalle email in arrivo

Nessuna funzione integrata in Outlook è in grado di gestire questa operazione, a meno che non si utilizzi VBA.

1. Premi Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Dopodiché, fai doppio clic su ThisOutlookSession nel riquadro sinistro del Progetto, quindi copia e incolla il codice seguente nella nuova finestra del codice.

VBA: Evidenzia automaticamente le parole chiave nelle email in arrivo

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

 

Suggerimento: nel codice puoi personalizzare le parole chiave in base alle tue esigenze nello script xWordArr = Array(«Kutools», «Important»).

3. Salva quindi il codice e torna in Outlook; nella scheda Home, fai clic su Regole > Gestisci regole e avvisi.

4. Nella finestra di dialogo Regole e avvisi, fai clic su Nuova regola nella sezione Regole posta elettronica, quindi, nella finestra di dialogo Guida per le regole, fai clic su Applica regola ai messaggi ricevuti.

5. Fai clic su Avanti > Avanti > Sì per passare alla terza finestra di dialogo. Nella sezione Passaggio 1, seleziona esegui uno script, quindi fai clic su uno script nella sezione Passaggio 2 per aprire la finestra di dialogo Seleziona script e scegli questo codice: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Infine, fai clic su OK.

6. Fai clic su Avanti > Avanti. Nell’ultima finestra di dialogo, assegna un nome a questa regola.

7. Fai clic su Fine > OK per completare la regola.

D’ora in poi, le parole chiave da te indicate verranno evidenziate automaticamente nelle email in arrivo.

---

Salva o esporta più email in file di altri formati (PDF/HTML/WORD/EXCEL) in Outlook

A volte potrebbe essere necessario salvare o esportare le email in una cartella come file in altri formati, ad esempio PDF, Word o Excel, direttamente da Outlook. Tuttavia, né la funzione «Salva con nome» né quella di esportazione di Outlook sono in grado di gestire questa operazione. Fortunatamente, la nostra utility ti permette di esportare più email contemporaneamente in una cartella, convertendole in diversi formati.Clicca per una prova gratuita di 45 giorni!Kutools per Outlook's Save as file

Kutools per Outlook: con decine di pratici componenti aggiuntivi per Outlook, prova gratuita senza limitazioni per 45 giorni.