无法在 Outlook 中获取电子邮件类别颜色

如何解决无法在 Outlook 中获取电子邮件类别颜色

我无法在 Outlook 上输出电子邮件的颜色类别。基本上，我尝试使用Microsoft Docs提供的VB代码来输出颜色的名称。请参阅下图以供参考： 作为输入，我提供了一个从电子邮件中提取的 Entry_ID。这将在 Blue Prism 中基本用作代码阶段

 Dim item = _nameSpace.GetItemFromID(Entry_ID)
 Dim objCategory As Category
 Dim strOutput As String 
 strOutput = ""
 
 ' Check if the Categories collection for the Namespace 
 ' contains one or more Category objects. 
 If item.Categories.Count > 0 Then 
 
 ' Enumerate the Categories collection,checking 
 ' the value of the Color property for 
 ' each Category object. 
 For Each objCategory In item.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 OlCategoryColor.olCategoryColorNone 
 strOutput = strOutput & ": No color" & vbCrLf 
 Case OlCategoryColor.olCategoryColorBlack 
 strOutput = strOutput & ": Black " & vbCrLf 
 Case OlCategoryColor.olCategoryColorBlue 
 strOutput = strOutput & ": Blue" & vbCrLf 
 Case OlCategoryColor.olCategoryColorGray 
 strOutput = strOutput & ": Gray" & vbCrLf 
 Case OlCategoryColor.olCategoryColorGreen 
 strOutput = strOutput & ": Green" & vbCrLf 
 Case OlCategoryColor.olCategoryColorMaroon 
 strOutput = strOutput & ": Maroon" & vbCrLf 
 Case OlCategoryColor.olCategoryColorOlive 
 strOutput = strOutput & ": Olive" & vbCrLf 
 Case OlCategoryColor.olCategoryColorOrange 
 strOutput = strOutput & ": Orange" & vbCrLf 
 Case OlCategoryColor.olCategoryColorPeach 
 strOutput = strOutput & ": Peach" & vbCrLf 
 Case OlCategoryColor.olCategoryColorPurple 
 strOutput = strOutput & ": Purple" & vbCrLf 
 Case OlCategoryColor.olCategoryColorRed 
 strOutput = strOutput & ": Red" & vbCrLf 
 Case OlCategoryColor.olCategoryColorSteel 
 strOutput = strOutput & ": Steel" & vbCrLf 
 Case OlCategoryColor.olCategoryColorteal 
 strOutput = strOutput & ": teal" & vbCrLf 
 Case OlCategoryColor.olCategoryColorYellow 
 strOutput = strOutput & ": Yellow" & vbCrLf 
 Case Else 
 strOutput = strOutput & ": UnkNown" & vbCrLf 
 End Select 
 Next 
 End If 
 
categoryColor = strOutput
 ' display the output string. 
 'MsgBox strOutput
 
 ' Clean up. 
 'Set objCategory = nothing 
 'Set objNameSpaceitem = nothing 
 
'End Sub

 

'categoryColor = objCategory