Macro para insertar una firma en Outlook que contenga texto e imagen
A ver si me pueden ayudar.
Tengo la siguiente macro para enviar un correo electrónico cuando ejecuto una Macro en Excel, pero no puedo insertarle una firma con texto e imagen.
La macro que tengo es:
im oLook As Object
Dim oMail As Object
Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.createitem(0)
With oMail
.To = "[email protected]; [email protected]"
.body = "TEXTO DEL CORREO"
.body = " "
.body = "OTRO TEXTO DEL CORREO."
.Subject = "REPORTE ACTUALIZADO"
.Send
End With
Set oMail = Nothing
Set oLook = Nothing
Para insertar una imagen y también para agrear una firma tienes que cambiar .Body por .HtmlBody
Te anexo algunos ejemplos:
¿Como hago para enviar correos con mi firma de outlook mediante una macro con los datos en excel?
Insertar firma con imagen a macro mails automático
Usar Firma de Outlook ya establecida
sal u dos
Gracias Danta, intento e intento pero no puedo :(
Te anexo un ejemplo
Cambia "c:\trabajo\" por la carpeta donde tienes la imagen
Cambia "logo.jpg" por el nombre del archivo que contiene la imagen
Sub Enviar_Correo_Con_Firma()
'
' Por Dante Amor
'
' Enviar correo con firma en una imagen
'
'
Set dam = CreateObject("outlook.application").createitem(olmailitem)
dam.To = "[email protected]; [email protected]"
dam.Subject = "REPORTE ACTUALIZADO" '"Asunto"
'
ruta = "c:\trabajo\" 'carpeta donde esta el archivo
logo = "logo.jpg" 'nombre del archivo con el logo
dam.Attachments.Add ruta & logo
'
cuerpo = "TEXTO DEL CORREO" & "<br>" & _
" OTRO TEXTO DEL CORREO. " & "<br>"
'
dam.HtmlBody = _
"<HTML> " & _
"<BODY>" & _
cuerpo & _
"<img src=cid:" & logo & " height=150 width=275>" & _
"</BODY> " & _
"</HTML>"
'
'dam. Send 'El correo se envía en automático
dam. Display 'El correo se muestra
End Sub
.
.
¡Gracias! , aunque no he podido dar con el código porque me da errores. De todos modos un gran abrazo.
¿Qué mensaje de error te envía?
¿Y en cuál línea de la macro se detiene?
Dam, como no me funcionaba, probé otras funcionalidades como el salto de página.
Me daba error en el inicio de la macro, en la siguiente línea:
dam.Attachments.Add ruta & logo
Me quedó así al final:
Sub prueba_correo()
Dim oLook As Object
Dim oMail As Object
Dim TD, fn As String
TD = Format(Date, "DDMMYYY")
fn = WorksheetFunction.Text(Now(), "DD-MMM-YYYY")
ruta = "C:\Users\edgajim\Desktop\"
logo = "logo_SUR_ASISTENCIA_1000px.jpeg"
Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.createitem(0)
With oMail
.To = "[email protected]"
.Bcc = "[email protected]"
.HtmlBody = "TEXTO TEXTO TEXTO TEXTO."
.Subject = "REPORTE DE RECLAMACIONES AL " & fn
.Send
End With
Set oMail = Nothing
Set oLook = Nothing
End Sub
No sé a qué te refieres con salto de página.
Revisa que estén bien escritos la carpeta y el nombre del archivo.
Cambia el nombre del archivo a uno más pequeño, por ejemplo : logo.jpeg
ruta = "C:\Users\edgajim\Desktop\"
logo = "logo.jpeg"
Prueba nuevamente mi macro
Sub Enviar_Correo_Con_Firma()
'
' Por Dante Amor
'
' Enviar correo con firma en una imagen
'
'
Set dam = CreateObject("outlook.application").createitem(olmailitem)
dam.To = "[email protected]; [email protected]"
dam.Subject = "REPORTE ACTUALIZADO" '"Asunto"
'
ruta = "c:\Users\edgajim\Desktop\" 'carpeta donde esta el archivo
logo = "logo.jpg" 'nombre del archivo con el logo
dam.Attachments.Add ruta & logo
'
cuerpo = "TEXTO DEL CORREO" & "<br>" & _
" OTRO TEXTO DEL CORREO. " & "<br>"
'
dam.HtmlBody = _
"<HTML> " & _
"<BODY>" & _
cuerpo & _
"<img src=cid:" & logo & " height=150 width=275>" & _
"</BODY> " & _
"</HTML>"
'
'dam. Send 'El correo se envía en automático
Dam. Display 'El correo se muestra
End SubSi te aparece un mensaje de error, debes decirme exactamente qué dice el mensaje de error y en cuál línea de la macro se detiene.
No modifiques mi macro, porque no sabré qué cambios le haces y no podré orientarte.
Hola Dante, ejecuté la macro y pasa todas las líneas sin inconvenientes, sin perjuicio de aquello, se genera un error en la imagen que adjunta. He intentado con diferentes tipos de archivos (.tif, .jpg,. .jpeg) y se reproduce el mismo error.
Adjunto la imagen del error, capaz que me puedes ayudar.
Quizás otra opción sería tomar una de las firmas ya existentes en el outlook e incorporarla.
Mil gracias por todo el apoyo prestado.
Pero quitaste esa línea de la macro! Activa nuevamente la línea.
dam.Attachments.Add ruta & logo
Cambia el nombre del archivo "Andres_Jimenez.jpg" a "aj.jpg", es decir, pon un nombre pequeño.
Revisa que esté bien escrito el nombre de tu carpeta, también revisa si el archivo es jpg o jpeg
Prueba nuevamente.
Hola Dante, hice lo que me indicaste (incorporé la línea que faltaba, verifiqué la ruta de acceso del archivo, cambié el nombre del archivo) y nada, me sigue apareciendo el mismo error.
Puedes poner otra vez las imágenes de la macro y de tu prueba de correo.
Necesito verificar qué otra cosa le cambiaste a la macro
También si puedes poner una imagen de tu explorador de windows para ver cómo se llama la carpeta y cómo se llama el archivo
