Tabla de contenido
Es posible que desee obtener una lista de todos los correos electrónicos rebotados de Outlook. Este código debería ayudarlo a comenzar:
| 1234567891011121314151617181920212223242526 | Atenuar outOutlook como nuevo Outlook.Atenuar el espacio de nombre como Outlook.NameSpaceAtenuar myInbox como Outlook.MAPIFolderAtenuar outItems como Outlook.Atenuar elemento como objetoEstablecer outNamespace = outOutlook.GetNamespace ("MAPI")Establecer myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Recuperar correos electrónicos fallidosPara cada outItem In outItemsSi InStr (outItem.Subject, "Notificación de estado de entrega (falla)")> 0 EntoncesDebug.Print outItem.SubjectTerminara sipróximoDoCmd.Hourglass FalseEstablecer outOutlook = NadaSet outNamespace = NadaSet outItem = Nada |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
