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;amp; "<BODY>" &amp;amp; "<P>" &amp;amp; _

 "<font face=""Calibri"" size=2 color=""Darkblue"">" &amp;amp; _

 Cuerpo &amp;amp; _

 "</font>" &amp;amp; "</P>" &amp;amp; "</BODY> " &amp;amp; "</HTML>" &amp;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)?

1 Respuesta

Respuesta
2

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 Sub

si 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í:


Añade tu respuesta

Haz clic para o

Más respuestas relacionadas