Macro do Outlook para alterar o "conjunto de estilos" na resposta

Question

Tenho o seguinte problema: Com o Outlook 2010 - ou o Outlook em geral - quando você responde um email em formato HTML, alguma formatação é usada no email recebido.

Freqüentemente, as configurações do parágrafo são diferentes do meu modelo. Encontrei uma maneira simples de alterar a formatação para minhas configurações padrão:

No e-mail aberto, na faixa de opções escolha:
Aba “Formatar Texto”, clique em “Alterar Estilos” à direita, escolha “Conjunto de Estilos”, selecione “Word 2003”

Agora gostaria de criar uma macro que execute essa tarefa automaticamente quando eu selecionar "responder", "responder a todos" ou "encaminhar".

Infelizmente, o Outlook não possui um gravador de macro :( Encontrei algo semelhante, mas não houve resposta alguma:Outlook 2007: Responder e encaminhar falha ao usar a formatação padrão
Ou esta macro aqui não funciona:http://www.codetwo.com/admins-blog/set-email-reply-format-automatically/

Qual seria o código da macro para executar as etapas acima na GUI?

Answer 1

Você pode simplesmente aplicar o conjunto de estilos necessário e selecionarDefinir como padrãono fundo deAlterar estiloscardápio.

Ou você pode fazer algo assim:

Public WithEvents OutlookInspectors As Outlook.Inspectors
Public WithEvents OutlookInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set OutlookInspectors = Application.Inspectors
End Sub

Private Sub OutlookInspectors_NewInspector(ByVal Inspector As Inspector)
    Set OutlookInspector = Inspector
End Sub

Private Sub OutlookInspector_Activate()
    On Error Resume Next
    Dim Item As MailItem

    If Not OutlookInspector Is Nothing Then
        Set Item = OutlookInspector.CurrentItem
        If Not Item Is Nothing And Item.Size = 0 Then
            OutlookInspector.WordEditor.ApplyQuickStyleSet "Word 2003"
        End If
    End If

    Set OutlookInspector = Nothing
End Sub