Vb.net 添加新的Outlook邮件类别

如何使用VB.net检查邮件类别是否存在，如果不存在，如何创建它

我正在使用Visual Studio创建VSTO outlook加载项。

---

谢谢

经过一系列的尝试和错误后，该代码成功了：

        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