Macro para enviar correos masivos (con archivos adjuntos) por Outlook
Hola Dante, molestándote con una duda
¿Se puede crear una macro que envíe archivos por outlook?
Que las direcciones las saque de una lista previamente realizada,
Por ejemplo:
El archivo se llama 9999
La lista tendría
Archivo correo
9999 1235@...
8888 2589@...
7777 5689@...
9999 lo envío a 1235@...
8888 lo envío a 2589@... Y así sucesivamente
Y que adjunte el archivo y lo envíe a su respectiva dirección, y de ser así, ¿se hace en excel o en microsoft outlook?
Muchas Gracias por tu ayuda, espero me puedas ayudar Buen Día!
1 respuesta
No soy dante pero le acabo de compartir una respuesta realizada a otro usuario con el código que usted necesita. En caso de no recibir el mismo, le copio el código: 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 = "[email protected]"
.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
