Sadržaj
Možda ćete htjeti dobiti popis svih odbijenih poruka e -pošte iz Outlooka. Ovaj kôd trebao bi vam pomoći da započnete:
| 1234567891011121314151617181920212223242526 | Zatamnite OutOutlook kao novi Outlook.ApplicationZatamniNamespace kao Outlook.NameSpaceZatamnite myInbox kao Outlook.MAPIFolderZatamnite stavke kao stavke programa OutlookZatamnite stavku kao objektPostavi outNamespace = outOutlook.GetNamespace ("MAPI")Postavi myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Postavite outItems = myInbox.ItemsDoCmd.Hourglass True'Dohvati neuspjele e -porukeZa svaki outItem U outItemsAko je InStr (outItem.Subject, "Obavijest o statusu isporuke (neuspjeh)")> 0 TadaIspravljanje ispisa Stavka.SubjektZavrši akoSljedećiDoCmd.Hourglass FalseSet outOutlook = NištaSet outNamespace = NištaSet outItem = Ništa |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
