Turinys
Galbūt norėsite gauti visų atmestų el. Laiškų iš „Outlook“ sąrašą. Šis kodas turėtų padėti jums pradėti:
| 1234567891011121314151617181920212223242526 | „Dim outOutlook“ kaip nauja „Outlook“. Taikymas„Dim outNamespace“ kaip „Outlook.NameSpace“„Dim myInbox“ kaip „Outlook.MAPIFolder“Dim outItems As Outlook. ElementaiUžtemdyti objektą kaip objektąNustatykite outNamespace = outOutlook.GetNamespace ("MAPI")Nustatykite myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True„Gauti nepavykusius el. LaiškusUž kiekvieną outItem In outItemsJei InStr (outItem.Subject, „Pristatymo būsenos pranešimas (klaida)“)> 0 TadaDerinti. SpausdintiItem.SubjectPabaiga JeiKitasDoCmd.Hourglass FalseSet outOutlook = NiekoSet outNamespace = NiekoSet outItem = Nieko |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
