複数の予定カテゴリを設定する

Question

VBScriptを使用してOutlookと連携し、特定の条件に基づいて電子メールのカテゴリを変更しようとしています。私の問題は、VBScriptがOutlookと対話して複数のカテゴリを割り当てる方法を理解できないことです。

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" 

しかし、それは動作しません。誰のアイデアですか？

Answer 1

カテゴリは ";"で区切る必要があります。また、アイテムを保存する必要があります：

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