Estoy tratando de automatizar algunos correos electrónicos usando VBA para Excel. Todo hasta ahora está bien, excepto tratar de mantener mi firma en el correo electrónico.

Una vez que le diga a VBA que cree un nuevo correo electrónico, ya contendrá su firma predeterminada. Esto se puede ver si intentasOutmail.Display. Sin embargo, si sobrescribe el.HTMLBody propiedad, se eliminará.

Mi simple intento fue guardar el contenido de.HTMLBody a unsignature (cadena) y luego reasignarlo a.HTMLBody solo para probarlo. Sin embargo, el correo electrónico resultante no tendrá firma.

Código para copiar y volver a insertar la firma:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem

Dim signature As String


Set myOlApp = CreateObject("Outlook.Application")
Set Outmail = myOlApp.CreateItem(0)

signature = Outmail.HTMLBody
Outmail.HTMLBody = signature

Outmail.Display

Código para mostrar que la firma se inserta automáticamente:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem 
Set myOlApp = CreateObject("Outlook.Application")
Set Outmail = myOlApp.CreateItem(0)
Outmail.Display

Editar: intenté reemplazar.HTMLBody con.Body. Eso funciona, pero obviamente elimina el formato HTML de la firma

Edición 2: el código funciona en la computadora de mi amigo pero no en la mía