Correo Outlook a partir de HTML

Para poder realizar esto debemos seguir los siguientes pasos:

1. Abre Outlook.
2. Presiona F11 para abrir el editor de Visual Basic VB.
3. Selecciona "Insertar -> UserForm" en el menú.
4. Se abre una ventana con formulario (una ventana con título UserForm1) y se abre la ventana "Cuadro de herramientas".
5. En el "Cuadro de herramientas" selecciona "Cuadro de Texto" y dibuja un cuadro en el formulario "UserForm1" que ocupe la mayor parte del formulario.
6. En la ventana "Propiedades" (en la parte inferior izquierda de la pantalla), busca la propiedad "Multiline" y cambia el valor "False" por "True" y en "ScrollBars" el número 0 por el número 2.
7. Selecciona "Insertar -> Módulo" en el menú.
8. Se abre una ventana para editar código de Visual Basic.
9. Escribe esto :

Option Explicit

Public Sub HTMLEditor()
Dim objItem As Object, bodyStr As String

If Application.ActiveInspector Is Nothing Then
MsgBox "Abra o cree un nuevo mensaje.", vbOKOnly Or vbCritical, "Editor HTML"
Exit Sub
End If

If Not Application.ActiveInspector.IsWordMail Then
MsgBox "No es un mensaje de correo.", vbOKOnly Or vbCritical, "Editor HTML"
Exit Sub
End If

Set objItem = Application.ActiveInspector.CurrentItem
bodyStr = objItem.HTMLBody

Dim Form1 As New UserForm1
Load Form1

Form1.TextBox1.Text = bodyStr
Form1.Show vbModal

On Error GoTo eHand
objItem.HTMLBody = Form1.TextBox1.Text
Exit Sub

eHand:
End Sub

10. Cierra el editor de Visual Basic con "Archivo -> Cerrar y volver a Microsoft Outlook" en el menú.

Para crear nuevos mensajes en HTML en Outlook.

11. Crea un nuevo mensaje de correo.
12. Se abre el editor de Word.
13. Presiona ALT+F8 para abrir la ventana "Macros".
14. Selecciona "HTMLEditor" de la lista.
15. Presiona "Ejecutar".
16. Se abre una ventana con el "UserForm1" que hiciste en el paso 3 con el HTML del mensaje incluido.
17. Edita el HTML (Si no lo editas bien, Outlook borra el mensaje original)
18. Cierra la ventana, y el código HTML pasa a ser tu mensaje.