Enviar Email a grupo de contactos
Publicado por Andres (3 intervenciones) el 23/09/2016 09:40:43
Buenas, es mi primer consulta en este foro, espero tener éxito.
Les paso a contar:
Quiero hacer un botón, en un formulario para poder enviar un email a una lista de distribución de Outlook (un grupo de contactos), esta lista por ejemplo se llama "Cadetes A"
El código del botón, que lo copié de la web, es el siguiente:
Bien, por ahora dando click abre Outlook y en el campo 'Para:' me agrega "Cadetes A", pero obviamente no lo abre como la lista que hay con ese nombre sino que es solo texto, osea que si yo le doy al botón enviar no lo enviaria a nadie.
Alguien me puede ayudar ? Muchas gracias de antemano
Les paso a contar:
Quiero hacer un botón, en un formulario para poder enviar un email a una lista de distribución de Outlook (un grupo de contactos), esta lista por ejemplo se llama "Cadetes A"
El código del botón, que lo copié de la web, es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub EnviarEmail_Click()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "Cadetes A"
.CC = ""
.BCC = ""
.Subject = "Asunto del mensaje"
.Body = "Este es el texto del mensaje"
'Se pueden adjuntar ficheros
'.Attachments.Add ("C:\Mi_Fichero.pdf")
.Display 'tambien se puede usar .Send y lo situa en la bandeja de salida
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bien, por ahora dando click abre Outlook y en el campo 'Para:' me agrega "Cadetes A", pero obviamente no lo abre como la lista que hay con ese nombre sino que es solo texto, osea que si yo le doy al botón enviar no lo enviaria a nadie.
Alguien me puede ayudar ? Muchas gracias de antemano
Valora esta pregunta
0