Macro de Outlook para cambiar el "conjunto de estilos" en la respuesta

Question

Tengo el siguiente problema: con Outlook 2010, o Outlook en general, cuando responde un correo electrónico con formato HTML, se utiliza parte del formato del correo electrónico recibido.

A menudo, la configuración de los párrafos es diferente a la de mi plantilla. Encontré una forma sencilla de cambiar el formato a mi configuración estándar:

En el correo electrónico abierto, en la cinta elija:
pestaña "Formato de texto", haga clic en "Cambiar estilos" a la derecha, elija "Conjunto de estilos", seleccione "Word 2003"

Ahora me gustaría crear una macro que realice esa tarea automáticamente cuando selecciono "responder", "responder a todos" o "reenviar".

Desafortunadamente, Outlook no tiene una grabadora de macros :( Encontré algo similar pero no hay ninguna respuesta:Outlook 2007: Responder y reenviar no utiliza el formato predeterminado
O esta macro aquí no funciona:http://www.codetwo.com/admins-blog/set-email-reply-format-automatically/

¿Cuál sería el código de macro para realizar los pasos anteriores en la GUI?

Answer 1

Puede simplemente aplicar el conjunto de estilos requerido y luego seleccionarEstablecer por defectoen el fondo deCambiar estilosmenú.

O puedes hacer algo como esto:

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