Cómo ENVIAR CORREOS 📧 masivos con ADJUNTOS 📎 desde EXCEL. ✅

Tutorial para enviar mails masivos personalizados desde Excel con macros VBA. Cada mail con destinatario, asunto, cuerpo y adjuntos diferentes en función de lo que tengamos en la base de datos.

Conviértete en miembro de este canal para apoyarlo y disfrutar de ventajas:

   / @aprendizdeexcel  

Si os ha gustado este vídeo podéis ver más en el Curso de Excel experto

https://cutt.ly/pjRGyKh

El segundo vídeo de la serie "Enviar EMAILS MASIVOS 📧 con FIRMA 📝, IMÁGENES 🖼, LINKS y ADJUNTOS 📎 con Excel":

   • Enviar EMAILS MASIVOS 📧 con FIRMA 📝, ...  

El tercer video de la serie "Cómo ENVIAR CORREOS 📧 masivos con TABLAS dentro del cuerpo desde EXCEL. ✅"

   • Cómo ENVIAR CORREOS 📧 masivos con TAB...  

Si los queréis mandar desde Gmail "Cómo ENVIAR 📧 CORREOS MASIVOS por GMAIL con 📎 ADJUNTOS desde EXCEL - Curso de Excel Avanzado"

   • Cómo ENVIAR 📧 CORREOS MASIVOS por GMA...  

El vídeo Imprimir a PDF múltiples facturas a la vez:

   • Imprimir a PDF múltiples facturas a l...  


La macro utilizada:

--------------------

Sub enviarmail()

'Aprendiz de Excel
'   / @aprendizdeexcel  

Dim App As Object
Dim Mail As Object

Sheets("Mails").Select

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
.CC = Range("B" & i).Value
.BCC = Range("C" & i).Value
.Subject = Range("D" & i).Value
.Body = Range("E" & i).Value
.Attachments.Add Range("F" & i).Value
'.Send
.display

End With

Set Mail = Nothing
'Set App = Notinhg

Next


End Sub

--------------------

En caso de tener varios correos debemos definir en una variable la cuenta que queramos y después iniciar sesión:

cuenta = "[email protected]"
App.Session.Logon
App.Session.Accounts.Item(cuenta).SmtpAddress

Índice

0:00 Intro
0:46 Imprimir facturas
2:25 Código VBA
6:53 Envío de mails