Excel - Dar formato a un correo enviado por una Macro en excel

Hola buen dia, me pueden apoyar por favor, necesito darle formato a mis correos enviados desde excel y si es posible agregar mi firma la cual esta predeterminada en el outlok pero no se adjunta al momento de enviarlo.

este es mi codigo.


Gracias.

Para el formato usa código HTML

Para la firma.... revisaste las opciones en outlook ????

Hola gracias por tu pronta respueta, si he revisado las opciones de outlok si envio un mendaje de la manera tradicional se adjunta por automatico sin problema, pero por medio de la macro no se puede.

quieres decir q en la opcion .Body = Range("c4").Value

tengo q colocar .body = range("codigo html"). value

una disculpa esq soy muy nuevo en esto y lo q se lo he visto en foros como los de ustedes, gracias.

Saludos.

Hola

Es distinto a

Hola

Si te referías a dar formato a tus correos. Eso entendí.

El primero es texto plano, el segundo es texto html.

Aclara a que tipo de formato te referias o si solo era poner el pie de firma.

Hola con tu respueta me aclaras en cuanto al formato, solo necesitaba saber si el codigo correcto era colocarlo de la sigueinte manera.

.body = range("codigo html"). value

veo q me dices q es correcto, ahora solo me queda el problema de la firma, como te comente no se incluye por automatico al enviar mi correo desde excel, en otra pagina de excel vi q hacian un codigo vba pero lo intente y no me funciono.

no se si tu tengas una idea muchas gracias de nuevo.

Espero te sirva lo saque de aca:


http://www.lawebdelprogramador.com/foros/Visual-Basic/1050221-Crear-Mail-con-firma.html


ub Mail_Outlook_With_Signature_Plain()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"

SigString = "C:Documents and Settings" & Environ("username") & _
"Application DataMicrosoftSignaturesMysig.txt"

If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If

On Error Resume Next
With OutMail
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = strbody & vbNewLine & vbNewLine & Signature
'You can add files also like this
'.Attachments.Add ("C: est.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Hola Andres, me aparece este error.

"procedimiento externo no valido" y marca el inicio de la programacion.

ub Mail_Outlook_With_Signature_Plain()

En el copy paste parece que quedó fuera la "s" de sub

Sub Mail_Outlook_With_Signature_Plain()

Es correcto omiti la S en el SUB

Adicional revisa el link ya que hay una funcion adicional que deberias copiar.

Muchas gracias ya qesta solucionado.!

genial la pagina y sus comentarios.

Saludos.

Y se puede cambiar la imagen de fondo del mensaje?