Inhaltsverzeichnis
Möglicherweise möchten Sie eine Liste aller zurückgesendeten E-Mails von Outlook abrufen. Dieser Code sollte Ihnen den Einstieg erleichtern:
| 1234567891011121314151617181920212223242526 | Outlook als neue Outlook.Anwendung dimmenDimmen Sie outNamespace als Outlook.NameSpaceDimm myInbox als Outlook.MAPIFolderOutItems als Outlook.Items dimmenDim outItem As ObjectSet outNamespace = outOutlook.GetNamespace("MAPI")Set myInbox = outNamespace.GetDefaultFolder(olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Sanduhr True'Fehlgeschlagene E-Mails abrufenFür jedes outItem In outItemsWenn InStr(outItem.Subject, "Benachrichtigung über den Lieferstatus (Fehler)") > 0 ThenDebug.PrintoutItem.SubjectEnde WennNächsteDoCmd.Sanduhr FalschOutlook festlegen = NichtsSet outNamespace = NothingSet outItem = Nichts |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
