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:

[ Ссылка ]

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

[ Ссылка ]

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

[ Ссылка ]

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

[ Ссылка ]

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

[ Ссылка ]

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

[ Ссылка ]


La macro utilizada:

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

Sub enviarmail()

'Aprendiz de Excel
'[ Ссылка ]

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

свернуть