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
|