Passer au contenu principal

Comment mettre automatiquement en évidence des mots-clés spécifiques des e-mails entrants dans Outlook

Dans Outlook, vous pouvez recevoir des centaines et des milliers d'e-mails chaque jour, avez-vous déjà voulu mettre en évidence automatiquement certains mots-clés spécifiques des e-mails entrants? Dans cet article, j'introduis un code VBA pour mettre automatiquement en évidence les mots-clés que vous spécifiez à partir des e-mails entrants dans Outlook.

Mettre en évidence automatiquement les mots-clés des e-mails entrants


Mettre en évidence automatiquement les mots-clés des e-mails entrants

Aucune fonction intégrée dans Outlook ne peut gérer ce travail, à l'exception de VBA.

1. presse Alt + F11 pour activer le Microsoft Visual Basic pour applications fenêtre.

2. Puis double-cliquez Cette session Outlook à gauche Projet et copiez et collez le code ci-dessous dans la nouvelle fenêtre de code.

VBA: mise en évidence 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

Conseil: dans le code, vous pouvez modifier les mots-clés selon vos besoins dans ce script xWordArr = Tableau ("Kutools""Important") .

3. Enregistrez ensuite le code et revenez à Outlook , sous Accueil onglet, cliquez sur Règles > Gérer les règles et les alertes.
texte de mise en évidence automatique doc 1

4. dans le Règles et alertes dialogue, cliquez sur Nouvelle règle sous Règles de messagerie onglet, puis dans Assistant de règles dialogue, cliquez sur Appliquer la règle aux messages que je reçois.
texte de mise en évidence automatique doc 2

5. Cliquez Suivant > Suivant > Oui pour accéder à la troisième boîte de dialogue, cochez exécuter un script du Step1 section, puis cliquez un script in Step2 section à activer Sélectionnez un script boîte de dialogue, choisissez ce code Project1.ThisOutlookSession.AutoHighlight_SpecificWordsCliquez sur OK.
texte de mise en évidence automatique doc 3 texte de mise en évidence automatique doc 4

6. Cliquez Suivant > Suivant, dans la dernière boîte de dialogue, donnez un nom à cette règle.
texte de mise en évidence automatique doc 5

7. Cliquez Finition > OK pour terminer la règle.

À partir de maintenant, les mots-clés que vous avez spécifiés seront automatiquement mis en évidence dans les e-mails entrants.
texte de mise en évidence automatique doc 6


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

Parfois, vous souhaiterez peut-être enregistrer ou exporter les e-mails dans un dossier sous d'autres formats de fichiers, tels que des fichiers PDF, Word ou Excel dans Outlook. Dans Outlook, aucune des fonctions Enregistrer sous et Exporter ne peut gérer ce travail. cependant, Kutools for Outlook's Save as file L'utilitaire peut exporter plusieurs e-mails dans un dossier sous forme de fichiers avec plusieurs formats à la fois.    Cliquez pour un essai gratuit de 45 jours!
doc enregistrer en tant que fichier
 
Kutools for Outlook: avec des dizaines de compléments Outlook pratiques, essayez gratuitement sans limitation en 45 jours.

Meilleurs outils de productivité bureautique

Kutools for Outlook - Plus de 100 fonctionnalités puissantes pour booster votre Outlook

🤖 Assistant de messagerie IA: E-mails professionnels instantanés avec la magie de l'IA : un clic pour des réponses géniales, un ton parfait, une maîtrise multilingue. Transformez l’emailing sans effort ! ...

📧 Email Automation: Absent du bureau (disponible pour POP et IMAP)  /  Programmer l'envoi d'e-mails  /  Auto CC/BCC par règles lors de l'envoi d'un e-mail  /  Transfert automatique (règles avancées)   /  Ajouter un message d'accueil automatique   /  Divisez automatiquement les e-mails multi-destinataires en messages individuels 

(I.e. Email Management: Rappel facile des e-mails  /  Bloquer les e-mails frauduleux par sujets et autres  /  Supprimer les e-mails en double  /  Recherche Avancée  /  Consolider les dossiers 

(I.e. Pièces jointes ProSauvegarde par lots  /  Détachement par lots  /  Compression par lots  /  Enregistrement automatique   /  Détachement automatique  /  Compression automatique 

???? Magie de l'interface: 😊Plus d'émojis jolis et cool   /  Boostez votre productivité Outlook avec des vues à onglets  /  Réduire Outlook au lieu de fermer 

???? Merveilles en un clic: Répondre à tous avec les pièces jointes entrantes  /   E-mails anti-hameçonnage  /  🕘Afficher le fuseau horaire de l'expéditeur 

👩🏼‍🤝‍👩🏻 Contacts et calendrier: Ajouter par lots des contacts à partir des e-mails sélectionnés  /  Diviser un groupe de contacts en groupes individuels  /  Supprimer les rappels d'anniversaire 

infos Caractéristiques 100 Attendez votre exploration ! Cliquez ici pour en savoir plus.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations