新的 Outlook 邮件项目忘记类别

Question

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

        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

Item 对象是一个具有提醒集的任务对象。我在 Application_Reminder 子中捕获提醒并从中生成一封电子邮件。所有属性都从任务复制到电子邮件。在运行时，我只能在.Send 上设置一个断点，并查看电子邮件的.Categories 属性设置是否正确。收到电子邮件后，该电子邮件已重置并且为空白。我使用的类别是标准的 Outlook 类别。

Answer 1

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

在发送邮件时，该类别是由 Exchange Server 的传输规则而不是 Outlook 删除的。您可以查看放在Sent Items 文件夹中的项目。

如果您需要在外发电子邮件中发送类别，您可以使用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)。

在Sending Categories on Email Messages 文章中了解更多信息。