Mandar emails desde excel con macro
Tengo que hacer una comunicación masiva a 1000 cuentas de mail diferentes poniendo el mismo texto a todos. El problema es que deben ser mails individuales para cada uno.
Tengo una columna en excel con todos los mails y me gustaría poder crear una macro que simplemente abriese un mail en blanco y pegase un texto genérico definido que yo quiera, el asunto definido y que coja la dirección de mail de esa lista de excel.
De esta forma podría automatizar la creación de estos 1000 mails.
Ayudadme
¿El envío del correo es por outlook?
Envíame un correo para darte mi aplicación de envío de correos masivos.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Daniel Torrejon” y el título de esta pregunta.
Te he mandado un mail
La macro es esta
Sub Enviar_Correos()
'---
' Por.Dante Amor
'---
'***Macro Para enviar correos
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).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
Next
MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
