Problemas evento ItemAdd outlook |
Responder |
Autor | |
alfonsoy
Habitual Unido: 21/Mayo/2013 Localización: España Estado: Sin conexión Puntos: 82 |
Opciones de entrada
Gracias(0)
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.
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
Opciones de entrada
Gracias(0)
|
Hola Alfonsosoy,
Leído tu problema (que no creas que estás solo ). 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.
|
|
alfonsoy
Habitual Unido: 21/Mayo/2013 Localización: España Estado: Sin conexión Puntos: 82 |
Opciones de entrada
Gracias(0)
|
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.
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |