问题描述
我无法在 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
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)