Microsoft OutLook: como saber si ha sido enviado.

[hmpaquito]

Hola a las personas de buena voluntad

¿ Alguien conoce la forma de saber si un email en OutLook, usando oMailItem:Display() ha sido enviado ?

Este codigo falla.

Code: Select all  Expand view  RUN

oMailItem:= oApp:CreateItem(0)

oMailItem:Display()

IF oMailItem:Sent  // here error, because oMailItem is not valid.
ENDIF

Necesitaria que respondiese a eventos, algo asi como:

Code: Select all  Expand view  RUN

oMailItem:= oApp:CreateItem(0)
oMailItem:Display()

FUNCTION MailItem_Send(lCancel)
RETURN !lCancel

Saludos

[darioflores]

Hola, puedes probar con:

https://docs.microsoft.com/es-es/office ... litem.sent

Edición: perdón no había visto que ya lo habías probado.



Un saludo.

Enviado desde mi SM-G955F mediante Tapatalk

[hmpaquito]

Gracias Dario por tu amable respuesta.

Aquí un ejemplo donde habla de una forma ¿ordinaria? de hacerlo: atrapando el evento :Send().
Hasta donde yo sé adolecemos de eventos en nuestras clases OLE y por tanto no puedo definir el evento Send.
https://stackoverflow.com/questions/2533066/vba-outlook-mail-display-recording-when-if-sent-manually

Me pareciera que lo que otros compañeros hacen, cuando han de editar el mensaje a enviar, es displayar un dialogo "propio" y enviar con el metodo :Send() y asi si se puede capturar el resultado del envio. A no me parece lo adecuado porque es mejor hacer un oMailItem:Display() para que muestre un dialog de OutLook con todas sus caracteristicas. Pero si no hay otra solucion seguiremos inanes.

Gracias por tu interés.

[José Luis Sánchez]

La semana que viene tenemos una reunión en Calpe (Alicante), ¿ te has planteado venir ? Igual alguno de los asistentes tiene resuelto el problema que planteas.

Saludos,
José Luis