** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Problemas evento ItemAdd outlook
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Problemas evento ItemAdd outlook

 Responder Responder
Autor
Mensaje
alfonsoy Ver desplegable
Habitual
Habitual


Unido: 21/Mayo/2013
Localización: España
Estado: Sin conexión
Puntos: 82
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita alfonsoy Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Problemas evento ItemAdd outlook
    Enviado: 15/Junio/2022 a las 17:57
Hola buenas tardes,

Quería pediros ayuda para un problema que tengo.

Desde una aplicación Access envío  mails  periódicamente y de forma automática a través del Outlook, hasta aquí ningún problema todos los mails salen correctamente.

El problema está que  desde Outlook tengo que ir revisando todo lo que llega a la bandeja de “Elementos Enviados”   y según  un texto del mail copiarlo a una carpeta u otra.
Para hacer esto empleo el evento ItemAdd  para que cada vez que se añada un mail a  la bandeja de  Elementos Enviados se hagan los trabajos programados.

El problema es que la mayoría de las veces funciona perfectamente y todos los mails que salen pasan por ese evento pero hay veces que de forma aleatoria (no he conseguido encontrar un criterio común) hay mails que no pasan por ese evento y se quedan sin procesar.

No hay ningún error ni tengo ninguna pista de porque sucede.

¿Habéis utilizado el evento itemAdd  para este tipo de trabajos alguna vez?

Este es el código que utilizo  

Private WithEvents Items_empresa As Outlook.Items

Private Sub Application_Startup()
    Dim olNs As Outlook.NameSpace
    Dim carpeta_empresa  As Outlook.MAPIFolder

    Set carpeta_empresa = olNs.Folders("correo@empresa.com").Folders("Elementos enviados")
    Set Items_empresa = carpeta_empresa.Items
End Sub

Private Sub Items_empresa_ItemAdd(ByVal item As Object)
    On Error GoTo err_items_empresa
    
    Open "C:\Contabilidad\docs_facturas\logControl.txt" For Append As #1 ' Grabo en un fichero para verificar todo lo que pasa por este evento
    Print #1, get_usuarioGestionAutomatico & " | " & Now & " | " & TypeName(item) & " | " & item.Subject & " | " & item.To & " | " & item.Sender
    Close #1

    Call SaveACopy(item)    ' Proceso de copiado
   
    Exit Sub
    
err_items_empresa:
    Open "C:\Contabilidad\docs_facturas\logControl.txt" For Append As #1
    Print #1, "ERROR " & " | " & get_usuarioGestionAutomatico & " | " & Now & " | " & TypeName(item) & " | " & Err.Number & " - " & Err.Description
    Close #1
End Sub


Muchas gracias. 
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 15/Junio/2022 a las 19:23
Hola Alfonsosoy,
Leído tu problema (que no creas que estás solo Wink).

Yo no he utilizado ese evento en Outlook, bueno la verdad es que ninguno, ya que todo lo que tengo que hacer con el mismo lo hago desde fuera (desde Access):
- abro un Outlook por automatización
- busco la carpeta deseada
- trato todos los mensajes
- fin del proceso

Otra cosa es que este método de trabajo no se ajuste a tus necesidades, y, es complicadillo de montar.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
alfonsoy Ver desplegable
Habitual
Habitual


Unido: 21/Mayo/2013
Localización: España
Estado: Sin conexión
Puntos: 82
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita alfonsoy Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 16/Junio/2022 a las 10:26
Hola Mihura,

Tu sistema siempre es una alternativa y no me quedará mas remedio que hacer algo parecido si no soluciono este tema. He visto por Internet algún que otro problema con este evento que utilizo y me voy a replantear su uso.

Gracias por tu ayuda.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable