Question

我无法弄清楚如何使用VBA将类别颜色添加到邮件中。如果我把一个名为“CatégorieRouge”的颜色写入邮件，如果我这样做：

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

该计划有效。一步一步执行程序进入if。如果我把“CatégorieRouge”类别设为正确的话。

如果邮件没有任何类别颜色，我的程序的目的是使用邮件正文。因此，如果读取正文，我希望邮件获得颜色，但我真的无法弄清楚如何。在互联网上，我没有找到任何东西，也没有在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邮件中

1 个答案: