Lang L: none (table-of-contents)
Võib -olla soovite hankida Outlookist kõigi tagasilükatud meilide loendi. See kood peaks aitama teil alustada:
| 1234567891011121314151617181920212223242526 | Dim outOutlook kui uus Outlook. RakendusDim outNamespace nagu Outlook.NameSpaceDim myInbox Outlookina. MAPIFolderDim outItems As Outlook.ItPimendage objekt objektinaMäära outNamespace = outOutlook.GetNamespace ("MAPI")Määra myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Too ebaõnnestunud kirjadIga väljundi jaoksKui InStr (outItem.Subject, "Delivery Status Notification (Failure)")> 0 SiisSilumine. Prindi väljaItem.SubjectLõpp KuiEdasiDoCmd.Hourglass FalseSet outOutlook = Mitte midagiSet outNamespace = Mitte midagiSet outItem = Mitte midagi |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
