Innholdsfortegnelse
Det kan være lurt å få en liste over alle avviste e -poster fra Outlook. Denne koden skal hjelpe deg med å komme i gang:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationDim outNamespace As Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems As Outlook.ItemsDim outItem As ObjectAngi outNamespace = outOutlook.GetNamespace ("MAPI")Angi myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Sett utItems = myInbox.ItemsDoCmd.Time Glass True'Hent mislykkede e -posterFor hvert utItem In outItemsHvis InStr (outItem.Subject, "Leveringsstatusvarsel (feil)")> 0 DeretterDebug.Print outItem.SubjectSlutt omNesteDoCmd. Timeglass FalseSett utOutlook = IngentingSet outNamespace = IngentingSett utItem = Ingenting |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
