Obsah
Možno budete chcieť získať zoznam všetkých nepresmerovaných e -mailov z Outlooku. Tento kód by vám mal pomôcť začať:
| 1234567891011121314151617181920212223242526 | Dim outOutlook ako nový Outlook. AplikáciaDim outNamespace As Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outPoložky ako Outlook.ItemsDim outItem As ObjectSet outNamespace = outOutlook.GetNamespace ("MAPI")Nastaviť myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox ItemsDoCmd.Hourglass True'Načítať neúspešné e -mailyZa každú položku v položkáchAk je InStr (outItem.Subject, „Oznámenie o stave doručenia (zlyhanie)“)> 0, potomDebug.Print outItem.SubjectKoniec AkĎalšieDoCmd.Hourglass FalseSet outOutlook = NičSet outNamespace = NičSet outItem = Nič |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
