Destinatarios correo electrónico con Outlook
Buenos días.
Tengo un listado de contactos en Excel, y quiero remitirles un correo electrónico con Outlook a todos ellos.
Hay manera de vincular la tabla con el mensaje para no tener que escribir uno a uno todos los destinatarios?
Gracias anticipadas.
Le comparto una opción con Macros, solo debe reemplazar las partes en Negrita:
MarcoEnviar()
Dim OutApp1 As Object
Dim OutMail1 As Object
Set OutApp1 = CreateObject("Outlook.Application")
OutApp1.Session.logon
Set OutMail = OutApp1.CreateItem(0)
On Error Resume Next
With OutMail
.To = celda donde esta el correo
.CC = ""
.BCC = ""
.Subject = "Ejemplo de Prueba"
.Body = "Este es un Correo de Prueba"
.Attachments.Add ("C:\Users\Pc\Documents\ArchivoPrueba.xlsx")
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp1 = Nothing
End Sub
