Pergunta

Estou escrevendo um complemento para alterar a assinatura de e-mails compostos.Tentei Subinspetores Privados_NewInspector.Isso não funciona porque no momento em que é invocado, a assinatura não foi adicionada ao e-mail, mas o Corpo do e-mail é o Corpo do e-mail original que estou respondendo.Como posso invocar meu código após a assinatura ter sido adicionada?

eu tentei

Private Sub inspectors_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector

e

Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector

ambos os disparos antes da assinatura serem adicionados (testei isso adicionando um MsgBox(mailItem.Body) no Sub, posso ver que o Body é idêntico ao e-mail que estou respondendo também.

Edite o evento Activate - parece não funcionar - tentei:

    Public Sub inspector_activate(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector)_
       Handles inspector.activate
        Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
        Msgbox("test activate has fired")
        If Not TypeOf MailItem Is Outlook.MailItem Then Exit Sub
     end sub

Thanks
Max
Foi útil?

Solução

Tente usar o evento Inspector.Activate - ele é acionado depois que o inspetor fica visível.

Licenciado em: CC-BY-SA com atribuição
Não afiliado a StackOverflow
scroll top