添加新的Outlook邮件类别

Question

如何使用VB.net检查邮件类别是否存在，如果不存在，则创建它？  我正在使用Visual Studio创建VSTO Outlook加载项。 谢谢！

Answer 1

经过一系列的反复试验，这段代码有效：

        myOlApp = CreateObject("Outlook.Application")
        Dim ns As Outlook.NameSpace = myOlApp.GetNamespace("MAPI")

        If IsNothing(ns.Categories("CATEGORYNAME")) = True Then
            ns.Categories.Add("CATEGORYNAME", 18)
        End If