Modificar un registro solo si un correo se envio access VBA
Publicado por Francisco Lorenzo (3 intervenciones) el 11/04/2018 04:18:11
Tengo una aplicación access que envía un correo automáticamente confirmando la recepcion de un archivo. AL hacer esto también cambia el campo (estatus) de una tabla (correos por enviar). es decir al ejecutar el comando Docmd.sendobject.... el estatus cambia de "correo por enviar" a "correo enviado"
Esto sucede independientemente si el correo es enviado (presiono send en outlook) y si No envio cancelo y en su lugar cierro outlook antes de enviar.
Como puedo lograr que el campo permanezca en "correo por enviar" si cierro outlook antes de enviar el correo. es decir el correo no es enviado
Gracias
aca mi código
Esto sucede independientemente si el correo es enviado (presiono send en outlook) y si No envio cancelo y en su lugar cierro outlook antes de enviar.
Como puedo lograr que el campo permanezca en "correo por enviar" si cierro outlook antes de enviar el correo. es decir el correo no es enviado
Gracias
aca mi código
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim mailto as string
Dim emailmsg as string
Dim emailsub as string
mailto = "correo@dominio.com"
emailsub = "asunto"
emailmsg = "cuerpo del correo de correo"
Docmd.SendObject acSendReport, "formulario", acFormatPdf, mailto, , ,mailsub, emailmsg, True
tabla.edit
tabla!estatus = "Correo enviado"
tabla.update
On Error Resume Next
Valora esta pregunta


0