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

1 Respuesta

Respuesta
1

Te mando mi solución. En mi ejemplo tengo los mails de la lista de contactos en la columna F desde F1 hacia abajo. Con esta macro dejamos creada la variable LISTA que tiene almacenados todos los mails para que la uses en tu macro:

Sub lista_contactos()
'por Luismondelo
Range("f1").Select
Do While ActiveCell.Value <> ""
lista = lista & ";" & ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
lista = Mid(lista, 2, Len(lista) - 1)
MsgBox "esta es la lista de distribución:  " & lista
End Sub

recuerda finalizar y puntuar la consulta

Gracias por contestar tan rápidamente. Así me queda claro como crear la lista de distribución utilizando una hoja de excel. Pero es posible utilizar una lista ya creada en Outlook? En el Outlook, en la parte de Contactos/Mis Contactos tengo varias listas con diferentes contactos cada una. Es posible crear la macro y que seleccione una de esas listas que ya tengo creadas? No se si me explico del todo bien.

Gracias.

En mi caso bajaría esas listas a excel para manipularlas desde la hoja

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro en excel para enviar archivo por e-mail

Necesito saber si hay algún modo de hacer una macro que me envié un libro por correo electrónico mediante Outlook a varios destinatarios claro con asunto y descripción de lo que se envía... En espera de su gentil ayuda
4 respuestas

Macro guardar en PDF y mandar el archivo el PDF por correo

Quería saber si alguien me podía ayudar a crear o modificar un macro que guarde un archivo en PDF con nombre en base a una celda que es un formato concatenar de una celda que también es consecutivo, para después este archivo en PDF mandarlo por...
1 respuesta

Tengo una macro que envía correos, pero no envía la firma, ¿Cómo adjunto una firma?

Sub SendMail() Dim strReportName As String Dim strReportName2 As String 'Declaración de variables Dim objOutlook As Object Dim objMail As Object Dim objOutlookAttach As Object Dim Dan As String Dim Rafa As String P = 2 For F = P To 50 L = Cells(P,...
1 respuesta

Añadir attach para enviar mail desde Excel

Tengo esta macro que conseguí en la red. Desde Excel lanza Outlook con la información que incluyo en el código, envía un email a varios destinatarios, me personaliza y formatea el titulo, me deja escribir varias líneas en el mensaje... Etc, pero lo...
1 respuesta

Necesito una macro que envíe por mail el mismo archivo en que se encuentra esta.

El código es el siguiente: Public Sub Enviar_Mail() Dim objOutlook As Outlook.Application Dim objSession As Outlook.Namespace Dim objMessage As Outlook.MailItem Dim objRecipient As Object Dim Fichero As String Dim Destino As String Fichero =...
1 respuesta

Enlazar access con groupwise

Como puedo desde un formulario access lanzar una tarea en Groupwise Y tambiem como puedo enviar un informe como cuerpo del mensaje.
1 respuesta

Envío masivo de outlook por medio de macros de excel.

Necesito ayuda necesito enviar varios mails por medio de una macro de excel ya tengo algo avanzado pero me marca error de variable y después al adjuntar un archivo tbn marca error, espero y me puedas ayudar, te anexo los datos de lo que llevo en la...
1 respuesta

Correo masivo de excel a outlook

Tengo una duda de como puedo hacer un envío de correo masivo en outlook por medio de una macro en excel adjuntando un archivo, tengo el siguiente código pero me marca error de definición de etiqueta y después no adjunta el archivo espero y me puedas...
1 respuesta

Abrir elemento de Outlook desde Excel

Estoy desarrollando una aplicación con Excel XP y necesitaría poder abrir elementos de Outlook (Tareas, contactos, citas, etc). ¿Sabes cómo puedo hacerlo desde una macro de Excel?
1 respuesta

Enviar Mail por Macro

Necesito enviar por correo el archivo activo. Esto es lo que tengo. ActiveWorkbook. SendMail "Correo NN", "Asunto" Pero necesito enviar a varios correos (por ejemplo Grupos establecidos del Outlook), y correos independiente. Y agregarle un Mensaje...
1 respuesta