Macro para envío de correos personalizados con archivo pdf adjunto
Requiero enviar diversos correos (1,000) personalizados, sin embargo en cada archivo debo de adjuntar un PDF distinto.
En tiendo que los correos los puedo hacer por combinación por correspondencia sin embargo requiero que la macro me ayude adjuntar el archivo correspondiente para cada destinatario.
Ejemplo:
[email protected] adjunte el pdf 1
[email protected] adjunte el pdf 2
Y así sucesivamente.
1 respuesta
Respuesta de Dante Amor
1
Con la siguiente macro puedes enviar diferente archivos a diferentes correos.
[code]'***Macro Para enviar correosSub 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, "
