Comment surligner automatiquement des mots-clés spécifiques dans les e-mails entrants dans Outlook

Chaque jour, Outlook vous livre des centaines, voire des milliers d’e-mails. Avez-vous déjà souhaité que certains mots-clés soient automatiquement mis en évidence dans vos messages entrants ? Dans cet article, je vous partage un code VBA qui surligne automatiquement les mots-clés de votre choix dès leur réception dans Outlook.

Surlignage automatique des mots-clés dans les e-mails entrants

---

Surlignage automatique des mots-clés dans les e-mails entrants

Outlook ne propose aucune fonction intégrée pour effectuer cette opération, sauf en utilisant VBA.

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Double-cliquez ensuite sur ThisOutlookSession dans le volet gauche Projet, puis copiez-collez le code ci-dessous dans la nouvelle fenêtre de code.

VBA : surlignage automatique des mots-clés dans les e-mails entrants

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

 

Astuce : dans le code, vous pouvez personnaliser les mots-clés selon vos besoins dans ce script xWordArr = Array(«Kutools», «Important»).

3. Enregistrez ensuite le code et revenez à Outlook. Sous l’onglet Accueil, cliquez sur Règles > Gérer les règles et les alertes.

4. Dans la boîte de dialogue Règles et alertes, cliquez sur Nouvelle règle sous l’onglet Règles de messagerie, puis, dans la boîte de dialogue Assistant de règle, cliquez sur Appliquer la règle aux messages reçus.

5. Cliquez sur Suivant > Suivant > Oui pour accéder au troisième écran. Cochez exécuter un script dans la section Étape 1, puis cliquez sur un script dans la section Étape 2 pour ouvrir la boîte de dialogue Sélectionner un script, puis choisissez ce code : Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Cliquez sur OK.

6. Cliquez sur Suivant > Suivant, puis attribuez un nom à cette règle dans le dernier écran.

7. Cliquez sur Terminer, puis sur OK pour finaliser la règle.

Désormais, les mots-clés que vous avez définis seront automatiquement mis en évidence dans les e-mails entrants.

---

Enregistrer ou exporter plusieurs e-mails vers d’autres formats de fichiers (PDF/HTML/WORD/EXCEL) dans Outlook

Il peut arriver que vous souhaitiez enregistrer ou exporter des e-mails vers un dossier dans d’autres formats, tels que PDF, Word ou Excel, depuis Outlook. Or, aucune des fonctions « Enregistrer sous » ni « Exporter » d’Outlook ne permet d’accomplir cette tâche. Heureusement, il existe une solution pour exporter simultanément plusieurs e-mails vers un dossier, et ce, dans différents formats.Cliquez pour bénéficier d’un essai gratuit de 45 jours !Kutools pour Outlook's Save as file

Kutools pour Outlook : doté de dizaines de compléments Outlook pratiques, à tester gratuitement sans limitation pendant 45 jours.