Macro para poner color de fuente a un correo de outlook
Tengo el siguiente código:
Sub enviar_correo()
'Por.Dante Amor
Set dam = CreateObject("outlook.application").createitem(0)
dam.Display
dam.To = Sheets("Parámetros").Range("D2")
dam.CC = Sheets("Parámetros").Range("D3")
dam.Subject = Sheets("Parámetros").Range("D5")
Cuerpo = Sheets("Parámetros").Range("D6")
dam.HTMLBody = "<HTML> " &amp; "<BODY>" &amp; "<P>" &amp; _
"<font face=""Calibri"" size=2 color=""Darkblue"">" &amp; _
Cuerpo &amp; _
"</font>" &amp; "</P>" &amp; "</BODY> " &amp; "</HTML>" &amp; dam.HTMLBody
dam.send
End Sub
¿Cómo hago para que el color en la línea color=""Darkblue"" sea uno que tiene referencia RGB (31, 73,125)?
H o l a:
Te anexo el código actualizado:
Sub enviar_correo()
'Por.Dante Amor
Set dam = CreateObject("outlook.application").createitem(0)
dam.Display
dam.To = Sheets("Parámetros").Range("D2")
dam.CC = Sheets("Parámetros").Range("D3")
dam.Subject = Sheets("Parámetros").Range("D5")
Cuerpo = Sheets("Parámetros").Range("D6")
dam.HTMLBody = "<HTML> " & "<BODY>" & "<P>" & _
"<font face=""Calibri"" size=2>" & _
"<div style=""color: rgb(31,73,125);"" >" & _
Cuerpo & _
"</div>" & _
"</font>" & "</P>" & "</BODY> " & "</HTML>" & dam.HTMLBody
dam.send
End Subsi quieres líneas separadas y tienes esto en tu celda D6:
texto del correo con líneas separadas
Ahora ponlo así:
Texto del <br> correo <br> con líneas separadas
Pon <br> en donde quieras una nueva línea, el correo se verá así:
