Access - Envio correo masivo a destinatarios resultado de una consulta

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 53 puestos en Access (en relación al último mes)
Gráfica de Access

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!

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.MoveLast
rs.MoveFirst
Do Until rs.EOF
If clienteEmail <> "" Then clienteEmail = clienteEmail & ";"
clienteEmail = clienteEmail & rs![correo]
rs.MoveNext
 
Loop
 
.BCC = clienteEmail
 
.Display
 
End With
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Envio correo masivo a destinatarios resultado de una consulta

Publicado por Anonimo (2076 intervenciones) el 06/07/2018 17:04:58
En mi opinión, a momento actual (o en el código expuesto) el origen de datos del recordset es: ….. una consulta

(posiblemente tengamos un concepto diferente de lo que es una tabla, una consulta y ….. de lo problemático que puede ser que ese email sea interpretado como SPAM por los servidores de correo)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar