Vba 邮件类别

如何获取组收件箱中所有颜色类别的列表。我知道如何向msgbox打印“MAPI”命名空间中所有类别的列表，但这些类别与我的组收件箱中的类别不同。如何获取/打印后者

以下代码取自Microsoft网站：

Private Sub ListCategoryColors()
 Dim objNameSpace As NameSpace
 Dim objCategory As Category
 Dim strOutput As String

 ' Obtain a NameSpace object reference.
 Set objNameSpace = Application.GetNamespace("MAPI")

 ' Check if the Categories collection for the Namespace
 ' contains one or more Category objects.
 If objNameSpace.Categories.Count > 0 Then

 ' Enumerate the Categories collection, checking
 ' the value of the Color property for
 ' each Category object.
 For Each objCategory In objNameSpace.Categories

 ' Add the name of the Category object to
 ' the output string.
 strOutput = strOutput & objCategory.Name

 ' Add information about the assigned color
 ' to the output string.
 Select Case objCategory.Color

 Case Else
 strOutput = strOutput & ": Unknown" & vbCrLf
 End Select
 Next
 End If

 ' Display the output string.
 MsgBox strOutput

 ' Clean up.
 Set objCategory = Nothing
 Set objNameSpace = Nothing

End Sub

---

类别存储在收件箱文件夹中的隐藏邮件中，邮件类别为“IPM.Configuration.CategoryList”-您可以在以下位置看到它：转到收件箱文件夹，单击IMAPIFolder按钮转到“关联内容”选项卡，双击带有PR_message_class=“IPM.Configuration.CategoryList”的邮件，查找PR_ROAMING_XMLSTREAM属性

您可以使用Outlook对象模型（使用MAPIFolder.GetStorage）或-它公开集合来访问它