Sisällysluettelo
Saatat haluta saada luettelon kaikista palautetuista sähköpostiviesteistä Outlookista. Tämän koodin pitäisi auttaa sinua pääsemään alkuun:
| 1234567891011121314151617181920212223242526 | Dim outOutlook kuten uusi OutlookHimmennä nimitila Outlook.NameSpacenaHimmennä Saapuneet -kansioni Outlook.MAPIFolderinaHimmennä Outlookin kohteetHimmennä kohde objektinaAseta outNamespace = outOutlook.GetNamespace ("MAPI")Aseta myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Nouda epäonnistuneet sähköpostitJokaiselle outItem In OutItemsJos InStr (outItem.Subject, "Delivery Status Notification (Failure)")> 0 SittenDebug.Print outItem.SubjectLoppu JosSeuraavaDoCmd.Hourglass FalseSet outOutlook = Ei mitäänSet outNamespace = Ei mitäänSet outItem = Ei mitään |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
