Im EMail eine Kategorie mittels VBA hinzufügen - geht das?

Habe da eine Frage,

Ich starte mittels VBA ein Mail aus Excel. Gibt es da auch eine möglichkeit
bei diesem Mail eine Kategorie (z.Bsp. mit dem Namen des bearbeiters)
schon mit einzubauen?

Hoffe auf eine gute Idee von Euch... Gruss Daniel

Hier ein Auszug:

Sub DeleteFolder()

Dim FirstName As String
Dim LastName As String
Dim TNumber As String


Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)

With Nachricht
.SentOnBehalfOfName = "Sh-Usc-Data-Mailmove"
.To = "Muster@sender.de"
.Cc = "Muster@empfaenger.de"
.Subject = "blablabla"
.Display
.HTMLBody = "<span style=" & " font-family:Arial;" & "font-size:10pt;> Please delete folder <br><br>" _
.Display

End With

End Sub

.Categories = "Kategoriename"