Macro para enviar firma
Dam! De pronto se me ocurrió si se pudiera insertar esa imagen al final
del cuerpo osea en columna E al final de lo que va de cuerpo de correo
insertar una imagen y que se envíe asi? Se podrá hacer esto...
1 respuesta
Seguí probando como poner una imagen y descubrí esto, prueba la macro y me comentas, la imagen puedes ponerla en la F, ya que en la E va el cuerpo el mensaje.
'***Macro Para enviar correos
Sub correo()
'Por.Dam
ufila = Range("B" & Rows.Count).End(xlUp).Row
col = Range("G1").Column
For i = 2 To ufila
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = Range("B" & i) 'Destinatarios
parte2.CC = Range("C" & i) 'Con copia
parte2.Subject = Range("D" & i) '"Asunto"
parte2.body = Range("E" & i) '"Cuerpo del mensaje"
ucol = Cells(i, Columns.Count).End(xlToLeft).Column
For j = col To ucol
archivo = Cells(i, j)
parte2.Attachments.Add archivo
'parte2.Attachments.Add rb
Next
Range("F" & i).Copy 'Para copiar una imagen
parte2.send 'El correo se envía en automático
'parte2.display 'El correo se muestra
SendKeys "^{END}"
SendKeys "^v"
DoEvents
Next
End SubSaludos.Dam
Te comento la macro entra hasta aqui
Sub correo()
ufila = Range("B" & Rows.Count).End(xlUp).Row
col = Range("G1").Column
For i = 2 To ufila
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.createitem(olmailitem)
parte2.To = Range("B" & i) 'Destinatarios
Ejecuta estas lineas y en la de destinatarios, se salta hasta
parte2.Attachments.Add archivo
y me marca error: NO SE PUEDE ENCONTRAR EL ARCHIVO. COMPRUEBE QUE SU RUTA DE ACCESO Y NOMBRES SEAN CORRECTOS.
Tengo que hacer algo mas, ya agregue la columna F para la imagen.
Saludos.
Gracias Dam!
Lo que pasa es que el archivo debe tomar el valor de una celda
archivo = Cells(i, j)
Si no tienes nada en la celda, está intentando poner un archivo que no existe, si no vas a poner archivo, comenta la línea
'parte2. Attachments. Add archivo
Dam, perdona mi torpeza pero no logro comprender como hacer funcionar lo de la imagen, anexo mi macro, por mas que ponga imágenes en la columna F no las envía.
SAludos. https://www.dropbox.com/s/t7ns9i0034f213f/MACRO%20ENVIO%20DE%20CORREO.xlsm
Buenas tardes, eh estado investigando y encontré este ejemplo pero no se como adaptarlo... ya que al correr la macro, en vez de enviarme los datos solo me abre como si le diera en Outlook nuevo mensaje....
Option Explicit
Sub OutlookMailExcel()
Dim OutApp As Object
Dim OutMail As Object
Dim ultFil As Long
Dim i As Long
'Ultima fila usada
ultFil = Range("H:H").Find("*", , , , , xlPrevious).Row
'Outlook
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.logon
'Bucle para enviar emails
For i = 2 To ultFil
If Cells(i, "B") <> Empty Then
'Crea el correo
Set OutMail = OutApp.createitem(0)
With OutMail
.SentOnBehalfOfName = "[email protected]"
.To = Cells(i, "B").Value
.Subject = "Correo de prueba"
'Archivo de imagen que contiene la firma
.Attachments.Add "C:\Users\JJMarquez\Documents\ARCHIVOS 2013\Firma.jpg"
.BodyFormat = 2 'olFormatHTML
.HTMLBody = "<html>" & _
"<body>" & _
"<p>Aquí va el mensaje que deseas enviar...</p>" & _
"<br>" & _
"<br>" & _
"<br>" & _
"<img src='cid:'" & .Attachments.Item(1).Filename & "' height=100 width=120>" & _
"</body>" & _
"</html>"
.Display
End With
End If
Next i
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Me faltó un pequeño detalle, es que yo solamente hago la prueba para ver el mensaje, o sea, lo de en display, pero ya ví que si lo pones en send, no envía la imagen, por eso ahora ya hice la prueba y tienes que hacer esto:
parte2.body = "cuerpo del mensaje" & vbNewLine & vbNewLine & "algo"
Range("F2"). Copy
Parte2. Display 'El correo se muestra
SendKeys "^{END}"
SendKeys "^v"
DoEvents
Parte2. Send 'enviar el correo
Primero muestra el correo y después le das enviar
Saludos. Dam
p.d. No puede abrir el archivo que enviaste
No me lleva al link, mejor envíame por correo tu archivo con un par de ejemplos y con la macro que necesitas para adecuarla
Te comparto link del archivo con el código que me enviaste...
No se que este haciendo mal, que no logro que se vea la imagen. Saludos
https://www.dropbox.com/s/t7ns9i0034f213f/MACRO%20ENVIO%20DE%20CORREO.xlsm
Correcto Dam! Gracias te eh enviado el problema a tu correo.
Saludos.
Te envié el archivo.
Ya vi tu macro, la probe pero sigue sin adjuntarme la imagen... Chispas... hasta le di mas tiempo para que me la alcanzara a agregar... No se que este mal...
Saludos
Hola dam!
Sigo haciendo pruebas y eh comentado la linea de parte2.send y solo deje para visualizar el correo antes de enviarlo y sigue sin adjuntarme la imagen, pero al momento de regresar al archivo de excel me pega la imagen en la columna AA164 ahora si estoy mas confundida...
Saludos
Dam!! Eh conseguido que se visualice la imagen en el correo antes de enviarla eh movido el orden del código, lo que no consigo es que se envíe junto con sta imagen, si comento la linea parte2.send después de la espera si me visualizo la imagen, pero si le dejo la linea de send como que se envíe muy rapido y no permite que se adjunte la imagen,
Saludos.
Te envié unos comentarios,
Saludos. Dam
