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

1 respuesta

Respuesta
1

¿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

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas