VBA Outlook - 发送电子邮件和分类抄送电子邮件

Question

我一直在使用公共文件夹并在 Outlook 上发送电子邮件。每当我们使用公共文件夹电子邮件地址（例如 info@company.com）发送电子邮件时，我们将抄送 info@company.com。这样我们就可以将电子邮件保存在我们的公共文件夹中。

我创建了一些 VBA 代码来自动发送 Outlook 电子邮件。 我的问题是：当我发送电子邮件而不向收件人显示类别（如。

Sub outlookActivate1()
    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem

    Set OutApp = CreateObject("Outlook.Application")


    With OutMail

        .BCC = ""
        .BodyFormat = olFormatHTML

        .Categories = "customer-inquiry"
        .ShowCategoriesDialog
        .Save
        .display

End With

On Error GoTo 0


    Set OutMail = Nothing
    Set oItem = Nothing

End Sub

Answer 1

不，不是。您可以考虑将用户属性添加到邮件项。请参阅UserProperties 了解更多信息。