Visual Basic - Enviar por correo a través de código

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 51
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar por correo a través de código

Publicado por isidro (19 intervenciones) el 22/09/2020 15:48:51
Hola, tengo una consulta que me devuelve en vista de hoja de datos unos serie de registros:
FECHA OPE_CODIGO OPE_NOMBRE ENTRADA HIP HSP HORA SALIDA TIEMPO BULTOS

21/09/2020 400 PETER MENSAH 11:00 11:07 14:28 20:30 3,35 565 396 168,66 1,43 0,00
21/09/2020 401 OUMAR BAYO 11:00 11:07 18:36 20:30 6,98 1065 783 152,51 1,36
21/09/2020 403 FRANCIS ANSAH 11:00 11:06 18:36 20:30 7,00 1119 826 159,86 1,35 0,00 0
21/09/2020 408 DAVID DOMINGO 6:00 0:00 0:00 14:30 0,00 0 0 0,00 0,00 0,00 0
21/09/2020 409 ANTONIO MURILLO 5:00 0:00 0:00 13:30 0,00 0 0 0,00 0,00 0,00 0
21/09/2020 410 DAVID HIGUERAS CALVO 5:00 0:00 0:00 13:30 0,00 0 0 0,00 0,00 0,00 0
21/09/2020 412 ADONIS MEJIA 21:00 21:02 2:59 5:30 5,45 812 608 148,99 1,34 0,00 0
21/09/2020 414 SERGIO EXPOSITO 5:00 0:00 0:00 13:30 0,00 0 0 0,00 0,00 0,00 0

La idea es crear un código que vaya extrayendo las líneas individualmente y enviarlas por correo a sus correspondientes direcciones de correo.

Gracias por su tiempo.
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 Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar por correo a través de código

Publicado por Andres Leonardo (1798 intervenciones) el 22/09/2020 19:11:14
Lo que quieres es posible definitivamente


Las preguntas

En que aplicacion tienes la informacion
desde visual, en un excel

que formato quieres el mail, donde estan las direcciones de correo,con que sender lo quieres enviar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 51
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar por correo a través de código

Publicado por isidro (19 intervenciones) el 23/09/2020 07:42:43
La info o tabla de registros es extraída desde consulta de access, el formato en el mail será PDF y las direcciones están en una tabla donde cada código de operario tiene su correspondiente dirección 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
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar por correo a través de código

Publicado por Andres Leonardo (1798 intervenciones) el 23/09/2020 22:15:43
ok pasa un ejemplo y revisamos que podemos hacer
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
sin imagen de perfil
Val: 51
Ha disminuido su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Enviar por correo a través de código

Publicado por isidro (19 intervenciones) el 25/09/2020 08:48:09
Buenos días.

Verás al final opté por insertar este Módulo:

1
2
3
Public Sub EmailMasivo(NombreInforme, destinatario, Asunto, Optional Cuerpo, Optional CC, Optional CCO)
DoCmd.SendObject acSendReport, NombreInforme, "PDF", destinatario, CC, CCO, Asunto, Cuerpo, False
End Sub.

Acompañado de la siguiente función:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Opción52_Click()
Dim NombreInforme As String
Dim destinatario As String
Dim CC As String
Dim Asunto As String
Dim Cuerpo As String
'PETER MENSAH
NombreInforme = "1_Resumen Preparacion_Peter Mensah"
destinatario = ""
CC = ""
CC0 = ""
Asunto = "Productividad"
Cuerpo = ""
EmailMasivo NombreInforme, destinatario, Asunto, Cuerpo, , CC

Sin embargo, para que fuese perfecto le faltaría añadir una condición a ese código y no sé como hacerlo, te explico:

Como sabrás este código ejecuta un informe y lo manda por correo. Sin embargo me gustaría poner una condición, es decir, dependiendo de la información del informe que lo mande o no. Te añado un claro ejemplo:

Condicion-Verdadera

Como verás en la imagen la condición verdadera para enviar el correo es que el cajón de los bultos sea mayor de 0 y será falso cuando sea menor de 0.

Gracias de antemano por tu tiempo.
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