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.