Servus,

hab mir einen VBA Code erstellt der wenn zwei # im Betreff sind den Inhalt zwischen den zwei # ausliest und diese als Kategorie verwendet.
Das Problem Kurze Zeit später löscht etas die Kategorie wieder raus.

Windows 10, Office 365

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
'Quellen
'http://www.outlookcode.com/article.aspx?id=62
'https://www.diewebmaster.it/betreff-emails-modifizieren-vba/comment-page-1/
    Dim arr() As String
    Dim i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm As MailItem
    Dim m As Outlook.MailItem
    Dim Betreff As String
    
    On Error Resume Next
    
    Set ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        Betreff = m.Subject
        If Len(Betreff) - Len(Replace(Betreff, "#", "")) = 2 Then
        Betreff = Mid(Betreff, InStr(Betreff, "#") + 1, InStrRev(Betreff, "#") - InStr(Betreff, "#") - 1)
        'MsgBox Betreff
        m.Categories = Betreff
        m.Save
        End If
    Next
   ' Set ns = Nothing
   ' Set itm = Nothing
   ' Set m = Nothing

End Sub