Direkt zum Inhalt

So markieren Sie bestimmte Schlüsselwörter aus eingehenden E-Mails in Outlook automatisch

In Outlook erhalten Sie möglicherweise täglich Hunderte und Tausende von E-Mails. Wollten Sie schon immer bestimmte Schlüsselwörter aus eingehenden E-Mails automatisch hervorheben? In diesem Artikel stelle ich einen VBA-Code vor, um die Schlüsselwörter, die Sie aus eingehenden E-Mails in Outlook angeben, automatisch hervorzuheben.

Markieren Sie Schlüsselwörter aus eingehenden E-Mails automatisch


Markieren Sie Schlüsselwörter aus eingehenden E-Mails automatisch

Mit Ausnahme von VBA kann keine in Outlook integrierte Funktion diesen Job ausführen.

1. Drücken Sie Alt + F11 Taste zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.

2. Doppelklicken Sie dann DieseOutlookSession links Projekt Bereich, und kopieren Sie den folgenden Code und fügen Sie ihn in das neue Codefenster ein.

VBA: Schlüsselwörter in eingehenden E-Mails automatisch hervorheben

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

TIPP: Im Code können Sie die Schlüsselwörter nach Bedarf in diesem Skript ändern xWordArr = Array ("Kutoolen""Wichtig") .

3. Speichern Sie dann den Code und kehren Sie zu Outlook , unter zurück Home Tab, klicken Sie auf Regeln > Regeln und Warnungen verwalten.
doc Text automatisch hervorheben 1

4. In dem Regeln und Warnungen Dialog, klicken Sie auf Neue Regel für E-Mail-Regeln Registerkarte, dann in Regel-Assistent Dialog, klicken Sie auf Übernehmen Sie Regeln für Nachrichten, die ich erhalte.
doc Text automatisch hervorheben 2

5 Klicken Weiter > Weiter > Ja Um zum dritten Dialogfeld zu gelangen, überprüfen Sie Führen Sie ein Skript aus von Step1 Abschnitt, dann klicken Sie auf ein Skript in Step2 Abschnitt zu aktivieren Wählen Sie Skript Dialog, wählen Sie diesen Code Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klicken Sie OK.
doc Text automatisch hervorheben 3 doc Text automatisch hervorheben 4

6 Klicken Weiter > WeiterGeben Sie im letzten Dialogfeld einen Namen für diese Regel ein.
doc Text automatisch hervorheben 5

7 Klicken Endziel > OK um die Regel zu beenden.

Von nun an werden die von Ihnen angegebenen Schlüsselwörter in den eingehenden E-Mails automatisch hervorgehoben.
doc Text automatisch hervorheben 6


Speichern oder Exportieren mehrerer E-Mails in andere Fomat-Dateien (PDF / HTML / WORD / EXCEL) in Outlook

Manchmal möchten Sie die E-Mails möglicherweise als andere Formatdateien wie PDF-, Word- oder Excel-Dateien in Outlook speichern oder in einen Ordner exportieren. In Outlook kann keine der Funktionen Speichern unter und Exportieren diesen Job ausführen. Jedoch, Kutools for Outlook's Save as file Das Dienstprogramm kann mehrere E-Mails als Dateien mit mehreren Formaten gleichzeitig in einen Ordner exportieren.    Klicken Sie für 45 Tage kostenlose Testversion!
doc als Datei speichern
 
Kutools für Outlook: Mit Dutzenden praktischer Outlook-Add-Ins können Sie es innerhalb von 45 Tagen ohne Einschränkung testen.

Beste Office-Produktivitätstools

Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks

🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...

📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP)  /  Planen Sie das Senden von E-Mails  /  Automatisches CC/BCC nach Regeln beim E-Mail-Versand  /  Automatische Weiterleitung (erweiterte Regeln)   /  Begrüßung automatisch hinzufügen   /  Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...

📨 E-Mail-Management: E-Mails einfach abrufen  /  Blockieren Sie betrügerische E-Mails nach Betreff und anderen  /  Doppelte E-Mails löschen  /  Erweiterte Suche  /  Ordner konsolidieren ...

📁 Anhänge ProBatch speichern  /  Stapeltrennung  /  Stapelkomprimierung  /  Automatisches Speichern   /  Automatische Trennung  /  Automatische Komprimierung ...

???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis   /  Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten  /  Ausblick minimieren statt schließen ...

👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten  /   Anti-Phishing-E-Mails  /  🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu  /  Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf  /  Geburtstagserinnerungen entfernen ...

Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.

 

 

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