** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Boton enviar correos Outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoBoton enviar correos Outlook

 Responder Responder
Autor
Mensaje
ASICO Ver desplegable
Nuevo
Nuevo


Unido: 10/Agosto/2018
Localización: España
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Tema: Boton enviar correos Outlook
    Enviado: 10/Agosto/2018 a las 13:06
Hola a todos,
He creado un botón en un formulario que selecciona los correos de contactos de una tabla que cumplen años al dia siguiente y los coloca en el campo CCO de la pantalla nuevo correo en Outlook.
El codigo en cuestión es el siguiente:


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 MOLINA WHERE (((Day([Fnacimiento]))=Day(Now()+1)) AND ((Month([Fnacimiento]))=Month(Now())))")
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


Esto funciona perfectamente, el tema es que necesito crear otro botón que meta los correos de los contactos cuyo nombre empiece por una letra determinada (Que se pide al usuario). No tengo mucha idea de vb, el primer botón le creé a partir de código tomado de varias páginas, pero mis conocimientos no me dan para más. Alguien podría echarme un cable?

Gracias!

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 1407
Enlace directo a este mensaje Enviado: 10/Agosto/2018 a las 13:53
Hola

Asi a bote pronto se me ocurre un cuadro de texto en un formlario donde pondrias las letras a filtrar.
La consulta del recordset que te va a ir buscando los nombre de los contactos deberia llevar este filtro en criterios
Formularios!NombreFormulario!NombreDelCampoConLetras

Saludos


Arriba
ASICO Ver desplegable
Nuevo
Nuevo


Unido: 10/Agosto/2018
Localización: España
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 14/Agosto/2018 a las 10:55
Hola, gracias por contestar.

He probado con:

Set rs = CurrentDb.OpenRecordset("SELECT [correo] FROM MOLINA WHERE left(Nombre, 1) like formularios!inicial!Texto6")

Sin exito.

Alguna idea más?

Gracias.
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5150
Enlace directo a este mensaje Enviado: 17/Agosto/2018 a las 16:56
Buenas tardes.

De esto que tu pones: Set rs = CurrentDb.OpenRecordset("SELECT [correo] FROM MOLINA WHERE left(Nombre, 1) like formularios!inicial!Texto6")

Yo pondría esto:

Set rs = CurrentDb.OpenRecordset("SELECT [correo] FROM MOLINA WHERE left(Nombre, 1) = '" & formularios!inicial!Texto6 & "'")

Pruébalo a ver que tal y ya nos dices. Yo he pensado que tu campo Nombre, es del tipo texto, es por eso que he metido la comilla individual al montar el código.

Saludos.





Editado por VIMIPAS - 17/Agosto/2018 a las 16:56
Gracias
Arriba
ASICO Ver desplegable
Nuevo
Nuevo


Unido: 10/Agosto/2018
Localización: España
Estado: Sin conexión
Puntos: 5
Enlace directo a este mensaje Enviado: 20/Agosto/2018 a las 10:26
Hola, gracias por contestar.

Al final lo solucioné con:

Set rs = CurrentDb.OpenRecordset("SELECT [correo] FROM MOLINA WHERE [Nombre] Like '" & Me.Texto6 & "*'")

Saludos!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable