Office: Mails in Outlook farblich markieren wenn Zeichen hinter Wort

Hallo,

ich benötige Hilfe bei der farblichen Markierung, bedingten Formatierung von Mails in Outlook. Wir sind eine Arztpraxis und haben eine Online-Terminvergabe. Nach dem Absenden eines Formulars auf unserer Internetseite, erhalten wir eine Mail mit den Daten der Patienten, um diese telefonisch zu kontaktieren. In den Mails sind dann die Angaben der Personen aufgelistet.

Name: Max Mustermann

Behandlung: XXX

Telefonnummer: 123456789

Ãœberweisungscode:

Die Patienten haben hierbei auch die Möglichkeit (sofern vorhanden) den Überweisungscode eines Fachkollegen anzugeben. Das Wort „Überweisungscode" steht also in jeder Mail. Sofern vorhanden, steht dann dahinter eine willkürliche Zeichenfolge:

Ãœberweisungscode: 1ABS-1515-789F-FR11

Ist es möglich Mails farblich zu markieren, bei denen hinter dem Wort Überweisungscode "irgendwas" angeben wurde? Es geht nicht darum, was dort steht sondern nur darum, ob dort etwas steht. Durch eine Markierung etc. könnten sich entsprechend geschulte Mitarbeiter um die Anfragen kümmern.

Internetrecherchen und KI brachten bisher leider keine Hilfestellungen. Platzhalter sollen wohl nicht funktionieren.

Vielen Dank für die Hilfe

 

Moin Eikem,

Sorry für die späte Antwort! Bin im Moment sehr XL-fixiert. Vielleicht hast Du Deine KI einfach mit zu wenig HI befragt ...
Meine Frage:

hat meine KI eben so beantwortet:

Code:

Sub MarkiereMailsMitUeberweisungscode()
    Dim olApp As Outlook.Application
    Dim olNamespace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olMail As Object
    Dim ueberweisungZeile As String
    Dim ueberweisungWort As String
    Dim i As Long

    Set olApp = Outlook.Application
    Set olNamespace = olApp.GetNamespace("MAPI")
    Set olFolder = olNamespace.GetDefaultFolder(olFolderInbox)

    ueberweisungWort = "Ãœberweisungscode:"

    For i = olFolder.Items.Count To 1 Step -1
        Set olMail = olFolder.Items(i)
        If olMail.Class = olMail Then
            If InStr(1, olMail.Body, ueberweisungWort, vbTextCompare) > 0 Then
                ueberweisungZeile = Mid(olMail.Body, InStr(olMail.Body, ueberweisungWort), 100)
                If Len(Trim(Replace(ueberweisungZeile, ueberweisungWort, ""))) > 0 Then
                    olMail.Categories = "Ãœberweisungscode vorhanden"
                    olMail.Save
                End If
            End If
        End If
    Next i
End Sub

Der Code benötigt eine Kategorie namens "Überweisungscode vorhanden" in Outlook. Beim Check des Codes (übrigens ansonsten ungetestet) habe ich eben hinter Überweisungscode einen Doppelpunkt entdeckt. Dieses Keyword ist entscheidend. Wenn der in Euren Mails nicht oder mit mehr Leerzeichen vorkommt, musst das entsprechend anpassen.

Länge / Len ist nicht selten eine gute Hilfen, wenn Platzhalter nicht funktionieren.

Viel Erfolg!

 

Und? Funktioniert's?