Note: The other languages of the website are Google-translated. Back to English
English English

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 Le projet NetPoulSafe 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

Pointe: 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 À partir de 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 Récapitulatif > 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 pour 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.

Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (5)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
N'a pas fonctionné
Ce commentaire a été minimisé par le modérateur sur le site
ne fonctionne pas pour la version Outlook o365 sur Windows 10 j'ai tout appliqué
Ce commentaire a été minimisé par le modérateur sur le site
n'a pas fonctionné pour Outlook installé o365 sur Windows 10
Ce commentaire a été minimisé par le modérateur sur le site
"exécuter un script" ne s'affiche pas, ce qui, je suppose, est une option non autorisée par mon employeur
Ce commentaire a été minimisé par le modérateur sur le site
vous devriez changer la clé de registre s'il vous plaît regardez https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ mais le processus ci-dessus ne fonctionne pas pour la version Outlook o365 sur Windows 10
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés