Zum Hauptinhalt springen

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

Author: Sun Last Modified: 2025-05-28

In Outlook erhalten Sie möglicherweise jeden Tag Hunderte oder sogar Tausende von E-Mails. Haben Sie sich jemals gewünscht, bestimmte Schlüsselwörter in den eingehenden E-Mails automatisch hervorzuheben? In diesem Artikel stelle ich einen VBA-Code vor, mit dem Sie bestimmte Schlüsselwörter in den eingehenden E-Mails in Outlook automatisch hervorheben können.

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


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

Es gibt keine integrierte Funktion in Outlook, die diese Aufgabe außer durch VBA erledigen kann.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie dann im linken Projektbereich auf ThisOutlookSession und kopieren Sie den folgenden Code in das neue Codefenster.

VBA: Automatisches Hervorheben von Schlüsselwörtern in eingehenden E-Mails

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("Kutools", "Wichtig").

3. Speichern Sie dann den Code und kehren Sie zu Outlook zurück. Start Registerkarte, klicken Sie auf Regeln > Regeln & Warnungen verwalten.
doc auto highlight text 1

4. Im Regeln und Warnungen Dialogfeld klicken Sie auf Neue Regel unter E-Mail-Regeln Registerkarte, dann im Regel-Assistent Dialogfeld klicken Sie auf Regel auf empfangene Nachrichten anwenden.
doc auto highlight text 2

5. Klicken Sie auf Weiter > Weiter > Ja um zum dritten Dialogfeld zu gelangen, aktivieren Sie Skript ausführen aus Schritt 1 Abschnitt, dann klicken Sie auf ein Skript in Schritt 2 Abschnitt, um zu aktivieren Skript auswählen Dialogfeld, wählen Sie diesen Code Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klicken Sie auf OK.
doc auto highlight text 3 doc auto highlight text 4

6. Klicken Sie auf Weiter > Weiter, im letzten Dialogfeld geben Sie einen Namen für diese Regel ein.
doc auto highlight text 5

7. Klicken Sie auf Beenden > OK, um die Regel abzuschließen.

Ab sofort werden die von Ihnen angegebenen Schlüsselwörter in den eingehenden E-Mails automatisch hervorgehoben.
doc auto highlight text 6


Speichern oder Exportieren Sie mehrere E-Mails in andere Formate (PDF/HTML/WORD/EXCEL) in Outlook

Manchmal möchten Sie E-Mails möglicherweise in einem Ordner als Dateien in anderen Formaten wie PDF, Word oder Excel in Outlook speichern oder exportieren. Weder die Funktion „Speichern unter“ noch die Exportfunktion in Outlook können diese Aufgabe bewältigen. Mit dem Tool Kutools für Outlook „Speichern unter“ können Sie jedoch mehrere E-Mails gleichzeitig in einem Ordner in verschiedenen Formaten exportieren.    Klicken Sie hier für eine kostenlose 45-Tage-Testversion!
doc save as file
 
Kutools für Outlook: mit Dutzenden praktischer Outlook-Add-ins, kostenlos und ohne Einschränkungen 45 Tage lang testen.

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

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

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2