Inhoudsopgave
Misschien wilt u een lijst met alle teruggestuurde e-mails van Outlook. Deze code zou je op weg moeten helpen:
| 1234567891011121314151617181920212223242526 | Dim outlook als nieuwe Outlook.ApplicationNaamruimte uitdimmen als Outlook.NameSpaceDim mijn Postvak IN als Outlook.MAPIFolderItems dimmen als Outlook.ItemsDim uitItem als objectSet outNamespace = outlook.GetNamespace("MAPI")Stel myInbox = outNamespace.GetDefaultFolder(olFolderInbox) inSet outItems = mijnInbox.ItemsDoCmd.Hourglass True'Mislukte e-mails ophalen'Voor elke outItem In outItemsAls InStr(outItem.Subject, "Delivery Status Notification (Failure)") > 0 DanDebug.Print uitItem.SubjectStop alsVolgendeDoCmd.Zandloper FalseUitzettenOutlook = NietsSet outNamespace = NietsSet outItem = Niets |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
