将颜色类别放入 outlook 邮件

Question

我不知道如何使用 VBA 为邮件添加类别颜色。如果我将名为 "Catégorie Rouge" 的颜色放入邮件中，如果我这样做：

For Each obj In objOutlookfolder
        If obj.Categories <> "Catégorie Rouge" Then
            obj.Categories = "Catégorie Rouge" 
        End If
Next

程序有效。一步步执行程序get in if。如果我放置 "Catégorie Rouge" 类别，则 if 工作正常。

我的程序的目的是在邮件没有任何类别颜色时使用邮件正文。因此，如果阅读正文，我希望邮件获得颜色，但我真的不知道该怎么做。在互联网上我没有找到任何东西，也没有在 SO 中找到。

这是我的设置：

 Set olApp = New Outlook.Application
 Set OLNS = olApp.GetNamespace("MAPI")
 Set Recipient = OLNS.CreateRecipient("example@test.fr") ' You don't need it 
 Set objOutlookfolder = OLNS.GetSharedDefaultFolder(Recipient, olFolderInbox).Items

Answer 1

您需要保存消息。您可能还想确保您使用的是 MailItem 对象而不是 ReportItem 或 MeetingItem 对象：

For Each obj In objOutlookfolder
        If (obj.Class = 43) and (obj.Categories <> "Catégorie Rouge") Then
            obj.Categories = "Catégorie Rouge" 
            obj.Save
        End If
Next

将颜色类别放入 outlook 邮件

Put color category to a outlook mail

excel

outlook

vba