Vba 新的Outlook邮件项目遗忘类别

我有以下代码，但创建的电子邮件没有设置任何类别。永远

        Private Sub Application_Reminder(ByVal Item As Object)
            .
            .
            .
            Dim objMail As Outlook.mailItem
            Set objMail = Application.CreateItem(olMailItem)
            With objMail
                .BodyFormat = olFormatHTML
                .To = toContent
                .CC = ccContent
                .HTMLBody = messageContent
                .Categories = Item.Categories
                .Subject = Item.Subject
                .Send
            End With
            .
            .
            .
        End Sub

---

项

对象是具有提醒集的任务对象。我正在将提醒捕获到应用程序的提醒子系统中，并从中生成电子邮件。将所有属性从任务复制到电子邮件。在运行时，我只能在

.Send

上设置一个断点，查看电子邮件的

.Categories

属性是否设置正确。收到电子邮件时，该邮件已重置，为空。我使用的类别是标准的Outlook类别。

为避免在传出电子邮件中释放潜在的私人信息，在使用Exchange server邮箱时，类别不会与Outlook中的电子邮件一起发送。当您使用带有内部代码或可能令人尴尬的关键字的类别时，收件人将看不到它们

发送邮件时，Exchange Server的传输规则（而不是Outlook）会删除该类别。您可以签出放置在

已发送邮件

文件夹中的项目

如果您需要在发送电子邮件时发送类别，可以使用

SendPersonalCategories

注册表项

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Preferences

DWORD: SendPersonalCategories

Value Data: 1 to keep categories on sent mail, 0 to not include categories

其中16.0代表Outlook版本（2016）

---

请阅读本文中的详细信息。

为避免在传出电子邮件中释放潜在的私人信息，在使用Exchange server邮箱时，Outlook中不会随电子邮件发送类别。当您使用带有内部代码或可能令人尴尬的关键字的类别时，收件人将看不到它们

发送邮件时，Exchange Server的传输规则（而不是Outlook）会删除该类别。您可以签出放置在

已发送邮件

文件夹中的项目

如果您需要在发送电子邮件时发送类别，可以使用

SendPersonalCategories

注册表项

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Preferences

DWORD: SendPersonalCategories

Value Data: 1 to keep categories on sent mail, 0 to not include categories

其中16.0代表Outlook版本（2016）

在文章中阅读更多关于这方面的内容