☰

Outlook 2013 VBA: Consulte o editor no painel de leitura

tag-icon • tag-icon microsoft-outlook vba microsoft-outlook-2013
Outlook 2013 VBA: Consulte o editor no painel de leitura

Estou tentando atribuir uma categoria a uma mensagem ao enviá-la (uma categoria 'Enviar agora' para substituir um atraso de envio). A macro abaixo funciona bem ao editar a mensagem em uma janela separada, mas trava na linha 'Set msg = insp.CurrentItem' com mensagem de erro 'Variável de objeto ou com variável de bloco não definida' quando tento executar a macro durante a edição a mensagem no editor do painel de leitura.

Como me refiro corretamente ao editor quando ele está encaixado? E existe um teste de condição que posso usar para testar que tipo de editor está sendo usado?

Obrigado!

Public Sub SendNow()
Dim msg As Outlook.MailItem
Dim insp As Outlook.Inspector

Set insp = Application.ActiveInspector
Set msg = insp.CurrentItem
    If insp.EditorType = olEditorWord Then ' outlook 2013
        msg.Categories = "Send Now"
    End If
msg.Save
msg.Send

Set insp = Nothing
Set msg = Nothing
End Sub

Responder1

Dê uma olhada:

 Set exp = Application.ActiveExplorer
 Set msg = exp.ActiveInlineResponse
 If Not msg Is Nothing Then
 ...

informação relacionada