我可以将自定义图标添加到“outlook”项目吗？

我正在尝试添加自定义图标outlook使用 Office JS 插件 for Outlook 的项目（收件箱项目列表）。

如果 Officejs 无法做到这一点，那么我如何使用 Exchange 服务或任何其他工具或库来实现这一目标？

您可以更改图标，但是您可以选择图标。您需要使用 C# 或 VB.NET（例如 VSTO Outlook-addin）或 VBA。

我找不到您可以使用的图标值列表，但这是一个图像old列表 - 以防链接丢失。

图片来源，部分回答你的问题。

要更改图标，您需要使用MailItem.PropertyAccessor

几个 Const 示例（这些是十六进制值，但您也可以使用 Long）

Const OL_PHONE = &H15D
Const OL_GROUP = &H202
Const OL_NOTE = &H1BD
Const PR_ICON_INDEX As String = "http://schemas.microsoft.com/mapi/proptag/0x10800003"

使用以下辅助方法

'use the Get to see the value of an icon
'prior to this code you would need to get a reference to an Outlook mailitem
Dim res As New Object
GetExtendedPropertyValue(oMailItem, PR_ICON_INDEX, res)
'check the value of res or call Hex(res) to see its hex value

'here you can set the icon eg OL_GROUP etc
SetExtendedPropertyValue(oMailItem, PR_ICON_INDEX, OL_PHONE)

我制作的几个辅助方法

Private Function GetExtendedPropertyValue(ByVal aMailItem As Outlook.MailItem, ByVal aProperty As String, ByRef res As Object) As Boolean

    Dim oPropAcc As Outlook.PropertyAccessor = Nothing

    Try
        oPropAcc = DirectCast(aMailItem.PropertyAccessor, Outlook.PropertyAccessor)
        res = oPropAcc.GetProperty(aProperty)

        Return True

    Catch ex As System.Exception
        'Put your own logging here
    Finally
        If Not oPropAcc Is Nothing Then
            Marshal.ReleaseComObject(oPropAcc)
            oPropAcc = Nothing
        End If
    End Try
    Return False
End Function

Private Function SetExtendedPropertyValue(ByVal aMailItem As Outlook.MailItem, ByVal aProperty As String, ByVal value As Integer) As Boolean
    Dim oPropAcc As Outlook.PropertyAccessor = Nothing
    Try
        oPropAcc = DirectCast(aMailItem.PropertyAccessor, Outlook.PropertyAccessor)
        oPropAcc.SetProperty(aProperty, value)

        Return True
    Catch ex As System.Exception
        'Put your own logging here
    Finally
        If Not oPropAcc Is Nothing Then
            Marshal.ReleaseComObject(oPropAcc)
            oPropAcc = Nothing
        End If
    End Try
    Return False
End Function

这三个例子看起来像这样

PR_ICON_INDEXPidTagIconIndex 规范属性可以在这里找到并注意他们确实说

该属性（如果存在）是对客户端的提示。客户端可能会忽略该属性的值。

然而，情况似乎并非如此。

当然，图标的更改不会是永久性的。如果用户转发电子邮件或回复，则会发生变化。

EDIT顺便说一句，这是找出可能的图标的好方法。创建一个临时文件夹并将垃圾电子邮件复制到该文件夹​​中 2048 次。然后运行这段代码

Public Sub PrIconIndex() 

USE THIS MACRO WITH CARE! 

Dim objItems As Items 
Dim mail As MailItem 
 Dim i As Integer 

Set objItems = Application.ActiveExplorer.CurrentFolder.Items 

For i = 1 To 2048 
    Set mail = objItems(i) 

    Call mail.PropertyAccessor.SetProperty("http://schemas.microsoft.com/mapi/proptag/0x10800003", i) 

    mail.Body = CStr(i) 
    mail.Save 
Next 

End Sub 

以上内容来自这个论坛链接