Obsah
Možná budete chtít získat seznam všech odrazených e -mailů z aplikace Outlook. Tento kód by vám měl pomoci začít:
| 1234567891011121314151617181920212223242526 | Dim outOutlook jako nový Outlook. AplikaceDim outNamespace As Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outPoložky jako Outlook ItemsDim outItem As ObjectNastavit outNamespace = outOutlook.GetNamespace ("MAPI")Nastavit myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox ItemsDoCmd.Hourglass True„Načíst neúspěšné e -mailyPro každý outItem v outItemsPokud InStr (outItem.Subject, „Oznámení o stavu doručení (selhání)“)> 0, pakDebug.Print outItem.SubjectKonec IfdalšíDoCmd.Hourglass FalseSet outOutlook = NicSet outNamespace = NicSet outItem = Nic |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
