Envio correo masivo a destinatarios resultado de una consulta
Publicado por Víctor (1 intervención) el 06/07/2018 10:58:01
Hola a todos.
Tengo una tabla con contactos de clientes con su nombre, correo, etc... Cree un boton en un formulario a partir de codigo encontrado en esta y otras páginas para que abra Outlook e introduzca los correos de los clientes en el apartado CCO. El tema que no consigo es que coja los correos no de la tabla sino de una consulta. Alguien me echa un cable?
Este es el codigo que coge los correos de la tabla y abre Outlook, como he dicho necesito que coja el campo correo de una consulta.
Gracias!
Tengo una tabla con contactos de clientes con su nombre, correo, etc... Cree un boton en un formulario a partir de codigo encontrado en esta y otras páginas para que abra Outlook e introduzca los correos de los clientes en el apartado CCO. El tema que no consigo es que coja los correos no de la tabla sino de una consulta. Alguien me echa un cable?
Este es el codigo que coge los correos de la tabla y abre Outlook, como he dicho necesito que coja el campo correo de una consulta.
Gracias!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Comando3_Click()
Dim olLook As Object
Dim olNewEmail As MailItem
Dim clienteEmail As String
Dim rs As Recordset
Set olLook = CreateObject("Outlook.Application")
Set olNewEmail = olLook.CreateItem(0)
With olNewEmail
Set rs = CurrentDb.OpenRecordset("Select [correo] from tabla Where Len ([correo]) >0")
rs.MoveLastrs.MoveFirstDo Until rs.EOFIf clienteEmail <> "" Then clienteEmail = clienteEmail & ";"
clienteEmail = clienteEmail & rs![correo]
rs.MoveNextLoop
.BCC = clienteEmail
.DisplayEnd With
End Sub
Valora esta pregunta
0