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

In Outlook erreichen Sie täglich Hunderte, manchmal sogar Tausende E-Mails. Haben Sie sich schon einmal gewünscht, dass bestimmte Schlüsselwörter in eingehenden Nachrichten automatisch hervorgehoben werden? In diesem Artikel stelle ich Ihnen einen VBA-Code vor, der genau das tut: Er hebt die von Ihnen festgelegten Schlüsselwörter in eingehenden Outlook-E-Mails automatisch hervor.

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

---

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

In Outlook gibt es für diese Aufgabe keine integrierte Funktion – außer VBA.

1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Doppelklicken Sie anschließend im linken Bereich ThisOutlookSession des Projekt-Fensters, und fügen Sie den folgenden Code in das neue Code-Fenster 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 im Skript xWordArr = Array("Kutools", „Important") ganz nach Bedarf anpassen.

3. Speichern Sie anschließend den Code und kehren Sie zu Outlook zurück. Klicken Sie unter der Registerkarte Start auf Regeln > Regeln und Benachrichtigungen verwalten.

4. Klicken Sie im Dialogfeld Regeln und Benachrichtigungen auf Neue Regel unter der Registerkarte E-Mail-Regeln. Anschließend klicken Sie im Dialogfeld Regel-Assistent auf Regel auf empfangene Nachrichten anwenden.

5. Klicken Sie auf Weiter > Weiter > Ja, um zum dritten Dialogfeld zu gelangen. Aktivieren Sie dort im Abschnitt Schritt 1 die Option Skript ausführen, und klicken Sie anschließend im Abschnitt Schritt 2 unter ein Skript, um das Dialogfeld Skript auswählen zu öffnen. Wählen Sie dort folgenden Code aus: Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klicken Sie abschließend auf OK.

6. Klicken Sie auf Weiter > Weiter, und vergeben Sie im letzten Dialogfeld einen Namen für diese Regel.

7. Klicken Sie auf Fertig stellen und dann auf OK, um die Regel abzuschließen.

Ab sofort werden Ihre festgelegten Schlüsselwörter in eingehenden E-Mails automatisch hervorgehoben.

---

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

Manchmal möchten Sie E-Mails als Dateien in einem anderen Format – etwa PDF, Word oder Excel – in einem Ordner speichern oder aus Outlook exportieren. Doch weder die Funktion „Speichern unter“ noch „Exportieren“ in Outlook kann diese Aufgabe erledigen. Mit dem Tool können Sie jedoch mehrere E-Mails gleichzeitig als Dateien in verschiedenen Formaten in einen Ordner exportieren.Klicken Sie für eine kostenlose Testversion von 45 Tagen!Kutools für OutlookSave as file

Kutools für Outlook: Mit Dutzenden praktischer Outlook-Add-Ins – 45 Tage lang kostenlos und uneingeschränkt testen!