Macro enviar correo desde excel a lista de contactos
Quería saber si es posible hacer una macro que envíe un correo utilizando Outlook, y en el .BCC incluya una lista de contactos existente en el Outlook.
Tengo este código:
Sub Correo()
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
Dim fichero As String
fichero = "asdasd.pdf"
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
With objMail
.To = "[email protected]"
'.BCC = "Lista falsa para pruebas" 'aquí quiero poner la lista de contactos
'.From = ""
.Subject = "prueba"
.Body = ""
.Attachments.Add (fichero)
.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Respuesta de Luis Mondelo
1
Hola, tienes alguna macro para enviar archivo adjunto por correo seleccionando automático desde una ruta de ubicación especificada en una celda, igualmente seleccionar el destinatario especificado en otra celda - abdon suarez