Outlook 2013 VBA: consulte o editor no painel de leitura

Question

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 a mensagem de erro 'Variável de objeto ou Com a 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 faço para me referir corretamente ao editor quando ele está encaixado? E existe um teste de condição que eu possa 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

    

Answer 1

Dê uma olhada:

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