¿Cómo puedo enviar correos personalizados con archivo adjunto?
Necesito poder enviar el mismo cuerpo de mensaje a una serie de direcciones, pero el mail debe estar personalizado, y con nombre del asunto diferente. Por otra parte no puedo hacer esto con la opción de mail merge de word o excel porque necesito poder enviar archivos adjuntos, un pdf común a todos y otro diferente para cada uno. Supongo que existen macros para esto pero no tengo ni idea y al intentar buscar macros sobre esto no me funcionan porque supongo que tengo que cambiar datos o algo pero no sé el que... Si alguien me puede ayudar se lo agradecería.
1 Respuesta
Si vas a enviar los correos, puedes utilizar la aplicación que desarrollé para enviar varios correos, con el mismo asunto y con los mismos archivos, o varios correos, diferentes asuntos y diferentes archivos. En el archivo anexo hay comentarios con la explicación del funcionamiento.
Estas son las macros, ya están incluidas en el archivo.
'***Macro Para enviar correos
Sub correo()
'Por.Dante Amor
col = Range("H1").Column
For i = 2 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"
dam.body = 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
dam.send 'El correo se envía en automático
'dam.display 'El correo se muestra
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End SubDescarga el archivo desde este enlace:
https://www.dropbox.com/s/k8yuyymfde5hsw1/correo5c.xlsm?dl=0
S a l u d o s . D a n t e A m o r
Si es lo que necesitas.
