☰

Definir a categoria de uma nova mensagem de e-mail antes de enviar

tag-icon • tag-icon microsoft-outlook-2010
Definir a categoria de uma nova mensagem de e-mail antes de enviar

Posso definir facilmente a categoria de um e-mail que recebo usando o menu suspenso categorizar. No entanto, quero poder definir a categoria de um email que envio. Eu poderia enviá-lo e depois ir para Itens Enviados, mas eu realmente preferiria que a categorização fosse suspensa na faixa da nova mensagem de e-mail para que eu pudesse definir a categoria antes de clicar em enviar. No entanto, não consigo encontrar isso em nenhum lugar da faixa de opções personalizada.

Posso abrir tags e fazer isso lá, mas prefiro ter o acesso rápido que tenho em outras faixas (como categorizar um e-mail que recebo).

Alguém pode me apontar na direção certa?

Responder1

Você precisa disso; se nenhuma categoria for definida, a operação de envio será cancelada:

Private Sub Application_ItemSend (item ByVal como objeto, cancelar como booleano)
    Dim oc como OlObjectClass
    oc = item.Classe
    Se oc = olMail Ou oc = olReport Ou oc = olMeetingRequest Então
        item.ShowCategoriesDialog
        item.BillingInformation = item.Categorias
        Se item.Categories = "" Então Cancelar = True
    Fim se
Finalizar sub

BillingInformation também está definido, pois é transmitido de voltainalteradoquando seus destinatários responderem, as respostas recebidas já estarão categorizadas corretamente... para que isso funcione, você também precisará disso:

Subaplicativo privado_NewMailEx (ByVal EntryIDCollection como string)
    Dim arr() como string, i como inteiro
    Diminuir como Outlook.NameSpace
    Dim itm, m As MailItem

    Em caso de erro, retomar o próximo
    Definir ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    Para i = 0 para UBound (arr)
        Defina itm = ns.GetItemFromID(arr(i))
        Se itm.Class = olMail Então
            Definir m = itm
            Se m.Categories = "" E m.BillingInformation "" Então
                m.Categorias = m.Informações de faturamento
                m.BillingInformation = ""
                m.Salvar
            Fim se
        Fim se
    Próximo
Finalizar sub

Atenciosamente, MF

informação relacionada