Установить категорию нового сообщения электронной почты перед отправкой

Question

Я могу легко установить категорию получаемого электронного письма, используя выпадающий список. Тем не менее, я хочу иметь возможность установить категорию электронного письма, которое я отправляю. Я мог бы отправить его, а затем перейти к пункту «Отправленные», но я действительно предпочел бы, чтобы на ленте нового почтового сообщения был выпадающий список категорий, чтобы я мог установить категорию, прежде чем нажать «Отправить». Тем не менее, я не могу найти это нигде в настройках ленты.

Я могу открыть теги и сделать это там, но я предпочел бы иметь быстрый доступ, который есть у меня на других лентах (например, по категориям получаемых писем).

Может ли кто-нибудь указать мне правильное направление?

Answer 1

Ты нуждаешься в этом; если категория не установлена, операция отправки отменяется:

Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
    Dim oc As OlObjectClass
    oc = item.Class
    If oc = olMail Or oc = olReport Or oc = olMeetingRequest Then
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categories
        If item.Categories = "" Then Cancel = True
    End If
End Sub

BillingInformation также установлен, так как он передается обратно без изменений, когда ваши получатели отвечают, поэтому входящие ответы уже классифицированы должным образом ... для того, чтобы это работало, вам также понадобится это:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim arr() As String, i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm, m As MailItem

    On Error Resume Next
    Set ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        If itm.Class = olMail Then
            Set m = itm
            If m.Categories = "" And m.BillingInformation  "" Then
                m.Categories = m.BillingInformation
                m.BillingInformation = ""
                m.Save
            End If
        End If
    Next
End Sub

С уважением MF