Macro para enviar correos masivos con adjuntos diferentes pdf
Estoy tratando de mandar un correo con diferentes archivos pfd, y encontré tu macro que tiene por titulo correo5 pero cuando la quiero utilizar me manda un error, cuando le doy depurar me marca la línea.
dam.To = Range("B" & i) 'Destinatarios
[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, "
1 respuesta
Respuesta de Dante Amor
1
Mira el error es el siguiente
Estoy utilizando el office 365
Y lo voy a enviar por medio del botón que tienes en el excel, y si tengo configurado e instalado el outlook.
Y estas son las casillas que tengo activas
Muchas gracias Dante.
H o l a:
Es un tema de la versión. Prueba con la siguiente macro:
Sub correo()
'Por.Dante Amor
Dim dam1 As Object
Dim dam As Object
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam1 = CreateObject("outlook.application")
Set dam = dam1.createitem(0)
With dam
.To = Range("B" & i) 'Destinatarios
.CC = Range("C" & i) 'Con copia
.Bcc = Range("D" & i) 'Con copia oculta
.Subject = Range("E" & i) '"Asunto"
.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 .Attachments.Add archivo
Next
.send 'El correo se envía en automático
'.display 'El correo se muestra
End With
Next
MsgBox "Correos enviados", vbInformation, ""
End Sub':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
