Sub EnviarEmailMasivo()
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Dim rs As DAO.Recordset
' Crea una instancia del objeto Outlook
Set objOutlook = New Outlook.Application
' Abre un recordset con la lista de destinatarios
Set rs = CurrentDb.OpenRecordset("SELECT Email FROM TablaDestinatarios")
' Recorre el recordset y envía el correo a cada destinatario
Do Until rs.EOF
' Crea un nuevo correo electrónico
Set objMail = objOutlook.CreateItem(olMailItem)
' Configura los campos del correo electrónico
With objMail
.Subject = "Asunto del correo"
.Body = "Cuerpo del correo"
.To = rs("Email") ' Puedes agregar más campos como .CC, .BCC, .Attachments, etc.
' Envía el correo
.Send
End With
' Limpia la referencia al objeto de correo
Set objMail = Nothing
' Mueve al siguiente registro del recordset
rs.MoveNext
Loop
' Cierra el recordset
rs.Close
' Limpia la referencia al objeto Outlook
Set objOutlook = Nothing
End Sub
Crear cuenta