¿Cómo enviar correos masivos con archivo adjunto?
Quisiera saber cómo podría enviar un correo masivo con archivo adjunto. ¿Existe alguna macro para aplicar a MS-Excel? Conectando Word con Outlook y la lista de correos en Excel es posible enviar correo masivo pero aún no he podido lograr adjuntarle un archivo.
2 respuestas
H o l a:
En excel tienes la lista de destinatarios.
Pero que tienes en word, tienes el texto del asunto y el cuerpo del correo.
¿O lo que quieres enviar es una archivo word?
Tengo una aplicación para enviar desde excel, a varios destinatarios, varios archivos, con diferentes asuntos y diferente cuerpo.
Si te interesa puedo enviarte el archivo por correo.
Escríbeme un coreo,
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “” y el título de esta pregunta.
¡Muchas gracias! Ya te escribí al correo.
Esta es la macro para enviar correos
[code]'***Macro Para enviar correos con adjunto diferente y firmaSub 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 = [L2]
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.Display 'El correo se muestra
dam.send 'El correo se envía en automático
Next
MsgBox "Correos enviados", vbInformation, "
Buwenas tarde dejo un video de you tube que ojala te sirva o sea de utilidad
https://www.youtube.com/watch?v=Bwn-xY87jSM
o sigue la informacion en este blog
http://onsinfo.blogspot.com/2011/01/enviar-varios-correos-masivos-outlook.html