Comment mettre en surbrillance automatiquement des mots-clés spécifiques dans les emails entrants dans Outlook
Dans Outlook, vous pouvez recevoir des centaines, voire des milliers d'emails chaque jour. Avez-vous déjà souhaité mettre en surbrillance automatiquement certains mots-clés spécifiques dans les emails entrants ? Dans cet article, je vous présente un code VBA pour mettre en surbrillance automatiquement les mots-clés que vous spécifiez dans les emails entrants dans Outlook.
Mise en surbrillance automatique des mots-clés dans les emails entrants
Mise en surbrillance automatique des mots-clés dans les emails entrants
Aucune fonction intégrée dans Outlook ne peut gérer cette tâche à part le VBA.
1. Appuyez sur Alt + F11 pour activer la fenêtre Microsoft Visual Basic for Applications.
2. Double-cliquez ensuite sur ThisOutlookSession dans le volet Projet à gauche, puis copiez et collez le code ci-dessous dans la nouvelle fenêtre de code.
VBA : Mise en surbrillance automatique des mots-clés dans les emails 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 modifier les mots-clés selon vos besoins dans ce script xWordArr = Array("Kutools", "Important").
3. Ensuite, enregistrez le code et revenez à Outlook, sous Accueil onglet, cliquez sur Règles > Gérer les règles et alertes.
4. Dans la fenêtre Règles et alertes cliquez sur Nouvelle règle sous l'onglet Règles de messagerie puis dans l'assistant Assistant de règles cliquez sur Appliquer une règle aux messages que je reçois.
5. Cliquez sur Suivant > Suivant > Oui pour accéder à la troisième boîte de dialogue, cochez exécuter un script dans la section Étape 1 puis cliquez sur un script dans Étape 2 section pour activer Sélectionner un script dans la boîte de dialogue, choisissez ce code Project1.ThisOutlookSession.AutoHighlight_SpecificWordsCliquez sur OK.
6. Cliquez sur Suivant > Suivant, dans la dernière boîte de dialogue, donnez un nom à cette règle.
7. Cliquez sur Terminer > OK pour finaliser la règle.
Dès maintenant, les mots-clés que vous avez spécifiés seront automatiquement mis en surbrillance dans les emails entrants.
Enregistrer ou exporter plusieurs emails vers d'autres formats de fichiers (PDF/HTML/WORD/EXCEL) dans Outlook |
| Parfois, vous voudrez peut-être enregistrer ou exporter des emails dans un dossier sous forme de fichiers dans d'autres formats, comme des fichiers PDF, Word ou Excel dans Outlook. Ni la fonction Enregistrer sous ni la fonction Exporter dans Outlook ne peuvent gérer cette tâche. Cependant, l'utilitaire Enregistrer sous fichier de Kutools pour Outlook peut exporter plusieurs emails dans un dossier sous forme de fichiers avec plusieurs formats en une seule fois. Cliquez ici pour un essai gratuit de 45 jours ! |
 |
| Kutools pour Outlook : avec des dizaines de modules complémentaires pratiques pour Outlook, essayez-les gratuitement sans limitation pendant 45 jours. |
Meilleurs outils de productivité pour Office
Dernière nouvelle : Kutools pour Outlook lance une version gratuite !
Découvrez le tout nouveau Kutools pour Outlook avec plus de100 fonctionnalités incroyables ! Cliquez pour télécharger dès maintenant !
📧 Automatisation des emails : Réponse automatique (disponible pour POP et IMAP) / Programmation de l’envoi des emails / CC/BCC automatique selon des règles lors de l’envoi / Transfert automatique (Règle avancée) / Ajout automatique de la salutation / Fractionnement automatique des emails multi-destinataires en messages individuels...
📨 Gestion des emails : Rappeler les emails / Bloquer les emails frauduleux par sujet et autres critères / Supprimer les emails en double / Recherche Avancée / Organiser les dossiers...
📁 Pièces jointes Pro:Enregistrer par lot / Détachement par lot / Compression par lot / Enregistrer automatiquement/ Détachement automatique/Compression automatique...
🌟 Magie de l’interface : 😊Davantage d’emojis beaux et sympas / Recevez une alerte en cas d’email important / Réduisez Outlook au lieu de le fermer...
👍 Fonctions en un clic : Répondre à tous avec pièces jointes / Anti-phishing emails / 🕘Afficher le fuseau horaire de l’expéditeur...
👩🏼🤝👩🏻 Contacts & Calendrier: Ajouter des contacts en lot à partir des emails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire...
Utilisez Kutools dans la langue de votre choix– prend en charge l’anglais, l’espagnol, l’allemand, le français, le chinois, et plus de40 autres langues !
