Quiero dar formato a un contenido para enviar por correo.
Tengo una macro que envía un correo automáticamente por gmail, pero lo hace como texto plano, sin embargo quiero editar ese contenido pero no encuentro la forma.
Si me ayudan.
Set Email = New CDO.Message
correo = "[email protected]"
passwd = "Biobo708.."
'correo = "[email protected]"
'passwd = "dandedios2631"
destino = Hoja1.Range("AH1")
destino2 = Hoja1.Range("AI1")
mensaje = Hoja1.Range("AH2")
cuerpo = Hoja1.Range("AH3")
'archivo = Hoja1.Range("H3")
Email.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
Email.Configuration.Fields(cdoSendUsingMethod) = 2
With Email.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(25)
.Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = correo
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End With
With Email
.To = destino
.CC = destino2
.From = correo
.Subject = mensaje
.TextBody = cuerpo
'.AddAttachment archivo
.Configuration.Fields.Update
On Error Resume Next
.Send
End With
[Hola
Para el mensaje estás usando la propiedad "TextBody", necesariamente tienes que usar la propiedad "HTMLBody" y saber algo de HTML. Ejemplo:
.HTMLBody = "<html>" & _ "<body><font color=""#FF0000"" size=""6"" face=""Comic Sans MS, cursive""><strong>Hola mi querido y estimado amigo</strong></font>" & _ "</body></html>"
