Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » e-mails en access

Access - e-mails en access

Volver
Nuevo Tema
<<>>
 
Vista:

e-mails en access

Publicado por jesus (1 intervención) el 10/04/2005 13:39:43
quisiera enviar e-mail a trabes de access, y no tengo muy claro como acerlo
tengodos tablas relacionadas por un campo comun
1ª tengo el campo relacionado y todas las direcciones de e-mail
2ª tengo el mismo campo y los datos que son variables cada mes
(dni, nombre, fecha_I y fecha_f)
lo que desaaria es que automaticamente se insertaran (no como archivo) sino como texto del correo todos os registros de la segunda tabla, cogiendo logicamente llas direcciones de la primera
Saludos
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
Imágen de perfil de Alejandro

Cómo enviar correos electrónicos desde Access utilizando datos relacionados en tablas

Publicado por Alejandro (4142 intervenciones) el 30/05/2023 22:24:22
Para enviar correos electrónicos desde Access utilizando los datos relacionados en tablas, puedes seguir estos pasos:

1. Asegúrate de tener configurado un cliente de correo electrónico predeterminado en tu computadora, como Microsoft Outlook.

2. Crea una consulta que combine los datos de ambas tablas utilizando el campo común como criterio de unión. Esta consulta será la base para obtener los datos que se enviarán por correo electrónico.

3. Abre un nuevo formulario en Access y agrega un botón o un evento que desencadene el envío del correo electrónico.

4. En el evento de clic del botón o en el evento correspondiente, puedes usar el objeto Application del control de Outlook para crear y enviar el correo electrónico. Aquí hay un ejemplo de código VBA para lograrlo:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub EnviarCorreoElectronico()
    Dim appOutlook As Object ' Objeto Application de Outlook
    Dim correo As Object ' Objeto MailItem de Outlook
    Dim rsDatos As DAO.Recordset ' Recordset para obtener los datos de la consulta
 
    ' Crear instancia del objeto Application de Outlook
    Set appOutlook = CreateObject("Outlook.Application")
 
    ' Crear nuevo correo electrónico
    Set correo = appOutlook.CreateItem(0)
 
    ' Abrir la consulta que contiene los datos para el correo electrónico
    Set rsDatos = CurrentDb.OpenRecordset("NombreDeLaConsulta")
 
    ' Recorrer los registros y agregar los datos al cuerpo del correo
    rsDatos.MoveFirst
    Do Until rsDatos.EOF
        ' Obtener los datos relevantes de cada registro
        Dim direccionEmail As String
        Dim datosVariables As String
 
        direccionEmail = rsDatos!DireccionEmail
        datosVariables = "DNI: " & rsDatos!DNI & vbCrLf & _
                         "Nombre: " & rsDatos!Nombre & vbCrLf & _
                         "Fecha inicio: " & rsDatos!Fecha_I & vbCrLf & _
                         "Fecha fin: " & rsDatos!Fecha_f
 
        ' Agregar los datos al cuerpo del correo
        correo.Body = correo.Body & vbCrLf & datosVariables & vbCrLf
 
        rsDatos.MoveNext
    Loop
 
    rsDatos.Close
    Set rsDatos = Nothing
 
    ' Establecer los demás detalles del correo
    correo.Subject = "Datos Mensuales" ' Asunto del correo
    correo.To = direccionEmail ' Dirección de correo destinatario
 
    ' Enviar el correo electrónico
    correo.Send
 
    ' Liberar objetos utilizados
    Set correo = Nothing
    Set appOutlook = Nothing
End Sub

Asegúrate de reemplazar "NombreDeLaConsulta" con el nombre real de la consulta que contiene los datos que deseas enviar por correo electrónico.

5. Guarda y cierra el formulario. Luego, cuando hagas clic en el botón o se ejecute el evento, se abrirá Outlook con un nuevo correo electrónico que contiene los datos de la segunda tabla, y las direcciones de correo electrónico de la primera tabla se utilizarán para enviar el correo a los destinatarios correspondientes.

Recuerda que debes tener un cliente de correo electrónico configurado y activo en tu computadora para que este código funcione correctamente.

Espero que esta solución te sea útil para enviar correos electrónicos desde Access utilizando los datos relacionados en tus tablas. ¡Buena suerte!
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