Содержание
Вы можете получить список всех отклоненных писем из Outlook. Этот код должен помочь вам начать работу:
1234567891011121314151617181920212223242526 | Dim outlook as New Outlook.ApplicationЗатемнить outNamespace как Outlook.NameSpaceDim myInbox as Outlook.MAPIFolderЗатемнить элементы как Outlook.ItemsDim outItem As ObjectУстановите outNamespace = outOutlook.GetNamespace ("MAPI")Установите myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Получить неудавшиеся электронные письмаДля каждого outItem In outItemsЕсли InStr (outItem.Subject, «Уведомление о состоянии доставки (сбой)»)> 0, тоDebug.Print outItem.SubjectКонец, еслиСледующийDoCmd.Hourglass FalseУстановить outOutlook = НичегоSet outNamespace = НичегоSet outItem = Ничего |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access