ENVÍO MASIVO DE CORREOS CON ADJUNTO | MACRO EXCEL VBA

#MacroVBA #CorreosMasivos #Excel #Adjuntos

Hola, en este vídeo muestro la creación de una macro en Excel para hacer un envío masivo de correos con archivos adjuntos.

Les comparto el código para que lo utilicen en sus proyectos.

Cualquier inquietud déjenmela saber en los comentarios. Saludos!

***************************************************************************
Sub enviarmail()
Dim App As Object
Dim Mail As Object

'selecionar hoja
Sheets("Hoja1").Select
'crear un for para que tome todo el rango de la columna que tiene datos
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set App = CreateObject("Outlook.Application")
App.Session.logon

Set Mail = App.CreateItem(0)
On Error Resume Next

With Mail
.To = Range("A" & i).Value 'dirección correo
.Subject = Range("B" & i).Value 'Asunto
.Body = Range("C" & i).Value ' Cuerpo
.Attachments.Add Range("D" & i).Value 'Adjuntos
'.Send
.Display
End With

Set Mail = Nothing
'Set App = nothing
Next
End Sub
***************************************************************************