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
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 ...
El tercer video de la serie "Cómo ENVIAR CORREOS 📧 masivos con TABLAS dentro del cuerpo desde EXCEL. ✅"
• Cómo ENVIAR CORREOS 📧 ...
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 ...
El vídeo Imprimir a PDF múltiples facturas a la vez:
• Imprimir a PDF múltipl...
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 = "ponaqui@tucorreo.es"
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