Legen Sie mehrere Outlook-Kategorien fest

Question

Ich versuche, mit Outlook mithilfe von VBScript die Kategorien in einer E-Mail basierend auf bestimmten Kriterien zu ändern. Mein Problem ist, ich kann nicht herausfinden, wie VBScript die Interaktion mit Outlook für die Zuordnung mehrerer Kategorien behandelt.

Set objOutlook = CreateObject("Outlook.Application") 
Set objNamespace = objOutlook.GetNamespace("MAPI") 
Set objMailbox = objNamespace.Folders("team") 
Set objFolder = objMailbox.Folders("Inbox").Folders.Item("test") 
Set colItems = objFolder.Items 
mycount = objFolder.Items.Count 

If objItem.Categories = "Purple Category" Then 
    objItem.Categories = "Purple Category, Green Category" 

Aber das funktioniert nicht. Irgendwelche Ideen irgendjemand?

Answer 1

Die Kategorien müssen durch ";" getrennt sein. Sie müssen auch den Artikel speichern:

If objItem.Categories = "Purple Category" Then 
    objItem.Categories = "Purple Category;Green Category" 
    objItem.Save 
End If