¿Como agregar mi firma de correo de Outlook a una macro?
Tengo una macro para enviar correos masivamente del Outlook (estos datos están en una hoja de Excel), todo me funciona bien, lo único que necesito es que los correos se envíen con mi firma de mi Outlook, ¿hay alguna forma de hacer esto?
H o l a:
Te anexo un ejemplo, estoy poniendo el cuerpo del correo en la variable cuerpo, después pongo la variable en Htmlbody, y por último agrego nuevamente dam.htmlbody, de esa forma te pone un cuerpo y tu firma que tengas en outlook.
Sub enviar_correo_con_firma()
'Por.Dante Amor
Set dam = CreateObject("outlook.application").createitem(0)
dam.Display
dam.To = Sheets("Hoja1").Range("D2")
dam.CC = Sheets("Hoja1").Range("D3")
dam.Subject = Sheets("Hoja1").Range("D4")
cuerpo = Sheets("Hoja1").Range("D5")
dam.Display
dam.HtmlBody = cuerpo & dam.HtmlBody 'Con esta parte se agre la firma
dam.Display
dam.Send
End SubSi tienes problemas para adaptarlo a tu macro, pon tu macro para revisarla.
En mi firma tengo una imagen, como hago para colocarla?
Para ese caso, te anexo otro ejemplo:
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
ruta = ThisWorkbook.Path & "\"
For i = 3 To Range("B" & Rows.Count).End(xlUp).Row
Set dam = CreateObject("outlook.application").createitem(0)
dam.To = Range("B" & i) 'Destinatarios
dam.CC = Range("C" & i) 'Con copia
dam.Bcc = Range("D" & i) 'Con copia oculta
dam.Subject = Range("E" & i) '"Asunto"
Cuerpo = Range("F" & i) '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j)
If archivo <> "" Then dam.Attachments.Add archivo
Next
'
logo = "logo.jpg"
dam.Attachments.Add ruta & logo
dam.htmlbody = _
"<HTML> " & _
"<BODY>" & _
"<P>" & Cuerpo & "</P>" & _
"<img src=cid:" & logo & " height=40 width=40>" & _
"<br>" & "<b>" & [I2] & "</b>" & _
"<br>" & [J2] & _
"<br>" & [K2] & _
"</BODY> " & _
"</HTML>" & dam.htmlbody
'dam.Display 'El correo se muestra
dam.send 'El correo se envía en automático
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End SubTienes que guardar tu imagen en un archivo con el nombre de logo.jpg
Con esta línea anexas el logo al correo:
Dam. Attachments. Add ruta & logo
Y con esto la imagen se inserta en el correo:
dam.htmlbody = _ "<HTML> " & _ "<BODY>" & _ "<P>" & Cuerpo & "</P>" & _ "<img src=cid:" & logo & " height=40 width=40>" & _ "<br>" & "<b>" & [I2] & "</b>" & _ "<br>" & [J2] & _ "<br>" & [K2] & _ "</BODY> " & _ "</HTML>" & dam.htmlbody Dam. Display 'El correo se muestra dam. Send 'El correo se envía en automático
‘
S a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
Sr. Amor, si pude utilizar su ultimo ejemplo para agregar firma al correo, el único problema es que la firma me aparece antes que el cuerpo del correo en vez de aparecer después. También al adjuntar 2 o más archivos me aparece abajo de la firma la ruta del archivo de mi equipo (pero si se adjuntan correctamente). ¿Me podría ayudar para hacer que la firma aparezca abajo y que no se muestren en el cuerpo del correo las rutas de los adjuntos por favor? - Sergio Flores
Solamente tienes que poner el dam.htmlbody al final del código. No puedo poner más código sobre estos comentarios ya que no permite muchos caracteres. Revisa bien el ejemplo, si necesitas algunos cambios podrías crear una pregunta. - Dante Amor
Hola Dante. En una parte de esta respuesta mencionas que la imagen debe guardarse en un archivo con el nombre logo.jpg, mi consulta es, en que carpeta o lugar debe guardarse dicha imagen para que la macro lo tome? - Victor Fretes
Puedes guardarlo en la misma carpeta donde tienes el archivo con la macro, para eso es esta línea:ruta = ThisWorkbook.Path & "\" o si quieres poner el logo.jpg en una carpeta específica, cambia la línea, por ejemplo: ruta = "C:\archivo\imagenes\" - Dante Amor
Muchas Gracias Dante. Me ha servido un montón, mi único inconveniente es que me pone primero la firma y luego el cuerpo, hay alguna respuesta tuya donde pueda buscar solución a eso? - Victor Fretes
Aquí hay otro ejemplo, después del cuerpo agrega otros br para dar espacios entre el cuerpo y la firma - Dante Amor