vb.net - 无法在 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
解决方案
推荐阅读
- typescript - 椭圆的打字稿界面
- java - itext7戳和编辑注释不起作用
- git - 还原父分支中的提交是否影响子分支
- json - How to parse JSON only once in Flutter
- r - 匹配和替换R中列中的字符
- asp.net-mvc - 在 MVC 视图中嵌入 aspx 网站页面
- python - Efficiently Using Multiple Numpy Slices for Random Image Cropping
- c# - 我正在尝试将 Lotus Notes 结构化文本导入为一些可以执行 linq 查询的数据
- python - 如何将一页请求定向到 Flask 中的某些定义?
- design-patterns - 为什么装饰器是结构模式而责任链不是?