☰

发送前设置新电子邮件类别

tag-icon • tag-icon microsoft-outlook-2010
发送前设置新电子邮件类别

我可以使用分类下拉菜单轻松设置收到的电子邮件的类别。但是，我希望能够设置我发送的电子邮件的类别。我可以发送它，然后进入已发送邮件，但我真的希望在新邮件的功能区上有分类下拉菜单，这样我就可以在点击发送之前设置类别。但是，我在自定义功能区中找不到它。

我可以打开标签并在其中进行操作，但我更希望能够像在其他功能区中一样快速访问（例如对我收到的电子邮件进行分类）。

有人能给我指明正确的方向吗？

答案1

您需要这个；如果没有设置类别，则发送操作将被取消：

Private Sub Application_ItemSend（ByVal item 作为对象，取消作为布尔值）
    Dim oc 作为 OlObjectClass
    oc = 项目.类
    如果 oc = olMail 或 oc = olReport 或 oc = olMeetingRequest 则
        项目.显示类别对话框
        项目.BillingInformation = 项目.Categories
        如果 item.Categories = "" 则取消 = True
    万一
子目录结束

BillingInformation 也已设置，因为它被传回未改变当您的收件人回复时，传入的答案已经被正确分类....为了使其工作，您还需要这个：

私有子应用程序_NewMailEx（ByVal EntryIDCollection 作为字符串）
    Dim arr() 作为字符串，i 作为整数
    Dim ns 作为 Outlook.NameSpace
    Dim itm, m 作为 MailItem

    出错时继续下一步
    设置 ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    对于 i = 0 至 UBound(arr)
        设置 itm = ns.GetItemFromID(arr(i))
        如果 itm.Class = olMail 那么
            设置 m = itm
            如果 m.Categories = "" 且 m.BillingInformation "" 那么
                m.类别 = m.账单信息
                m.BillingInformation = “”
                m.保存
            万一
        万一
    下一个
子目录结束

问候 MF

相关内容