Macro do Outlook para alterar o “conjunto de estilos” na resposta

Question

Eu tenho que seguir o seguinte problema: Com o Outlook 2010 - ou Outlook em geral - quando você responde em um e-mail com formato HTML, então alguma formatação é usada a partir do e-mail recebido.

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

In the open email, on the ribbon choose:
Tab "Format Text", click on "Change Styles" on the right, choose "Style Set", select "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 tem um gravador de macros :( Eu encontrei algo semelhante, mas não há nenhuma resposta: Outlook 2007: responder e encaminhar falha ao usar formatação padrão
Ou essa macro aqui não funciona: link

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

    

Answer 1

Você pode simplesmente aplicar o conjunto de estilos necessário e, em seguida, selecionar Definir como padrão na parte inferior do menu Alterar estilos .

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