¿Cómo se escribe VBA macro para cambiar Outlook 2007 para responder en HTML?

Microsoft Outlook 2007 no ofrece inherentemente la capacidad de cambiar el formato de todas las respuestas a HTML. Puede seleccionar el formato que para cada mensaje individual, pero eso es mucho tiempo. Con el fin de forzar el formato a HTML cada vez, usted tiene que escribir un Visual Basic para aplicaciones macro (VBA). VBA es un lenguaje de programación por defecto de Microsoft para las aplicaciones de Office. Con el fin de forzar la macro para que se ejecute automáticamente, tendrá que anular varios procedimientos de evento de Outlook.

Instrucciones

1 Haga clic en el menú "Herramientas", coloca el cursor sobre "Macro" y seleccione la opción de menú "Editor de Visual Basic".

2 Expandir la carpeta del proyecto y la carpeta "Microsoft Office Outlook Objetos".

3 Haga doble clic en "ThisOutlookSession" para abrir la ventana de edición de código.

4 Copia y pega el código VBA abajo en su editor de código:

Option Explicit

Private WithEvents objExplorer como el Explorador
Private WithEvents objMailItem Como MailItem
blnDiscardEvents privadas As Boolean
objBodyFormat privada Como OlBodyFormat

Private Sub Application_Startup ()

Establecer objExplorer = Application.ActiveExplorer

blnDiscardEvents = False

objBodyFormat = olFormatHTML
End Sub

Private Sub objExplorer_SelectionChange ()
On Error Resume Next
Establecer objMailItem = objExplorer.Selection.Item (1)

End Sub

Private Sub objMailItem_Reply (Respuesta de ByVal como objeto, Cancel As Boolean)
Si blnDiscardEvents O objMailItem.BodyFormat = Entonces objBodyFormat

Exit Sub

Terminara si

Cancel = True
blnDiscardEvents = True

Dim oResponse Como MailItem
Establecer oResponse = objMailItem.Reply
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

Private Sub objMailItem_ReplyAll (Respuesta de ByVal como objeto, Cancel As Boolean)
Si blnDiscardEvents O objMailItem.BodyFormat = Entonces objBodyFormat

Exit Sub

Terminara si
Cancel = True
blnDiscardEvents = True

Dim oResponse Como MailItem
Establecer oResponse = objMailItem.ReplyAll
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

Private Sub objMailItem_Forward (ByVal Reenviar como objeto, Cancel As Boolean)
Si blnDiscardEvents O objMailItem.BodyFormat = Entonces objBodyFormat

Exit Sub

Terminara si

Cancel = True
blnDiscardEvents = True

Dim oResponse Como MailItem
Establecer oResponse = objMailItem.Forward
oResponse.Display

oResponse.BodyFormat = objBodyFormat
blnDiscardEvents = False

End Sub

5 Haga clic en el menú "Archivo" y seleccione la opción de menú "Guardar".

6 Cierre la ventana Editor de Visual Basic.

7 Haga clic en el menú "Herramientas", coloca el cursor sobre "Macro" y seleccione la opción de menú "Seguridad".

8 Asegúrese de que las macros no se desactivan mediante la selección de "Advertencias para todas las macros" y luego haga clic en "Aceptar".

9 Reinicio de la aplicación Microsoft Outlook.

10 Seleccionar la opción de "Habilitar macros" cuando la advertencia aparece al iniciar Outlook.