Macro de envío de correos, con doc adjuntos
Para Dante Amor,
Hola me llamo ismael, Seguro ya haz respondido esto. A otros compañeros, sin embargo me apoyas. Me da error al correr la macro que desarrollaste para el envío de correo electrónico masivo para diferentes archivos adjuntos
Deteniendo se el error en la siguiente línea
dam.To = Range("B" & i) 'Destinatarios
1 Respuesta
Respuesta de Dante Amor
2
H o l a : Es por el cambio de versión de excel 2010 o superior.
Utiliza esta macro
'***Macro Para enviar correos
Sub correo()
'Por.Dante Amor
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
col = Range("H1").Column
For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
Set dam = objOL.CreateItem(olMailItem)
'Set dam = CreateObject("outlook.application").CreateItem(0)
dam.To = Range("B" & i).Value 'Destinatarios
dam.CC = Range("C" & i).Value 'Con copia
dam.Bcc = Range("D" & i).Value 'Con copia oculta
dam.Subject = Range("E" & i).Value '"Asunto"
dam.Body = Range("F" & i).Value '"Cuerpo del mensaje"
'
For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
archivo = Cells(i, j).Value
If archivo <> "" Then dam.Attachments.Add archivo
Next
dam.Send 'El correo se envía en automático
'dam.display 'El correo se muestra
Set dam = Nothing
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
