Зміст
Можливо, ви захочете отримати список усіх відхилених електронних листів з Outlook. Цей код допоможе вам розпочати роботу:
| 1234567891011121314151617181920212223242526 | Затемніть OutOutlook як новий OutlookЗатемнити простір імен як Outlook.NameSpaceЗатемнити myInbox як Outlook.MAPIFolderЗатемнити елементи як OutlookЗатемнити елемент як об’єктВстановіть outNamespace = outOutlook.GetNamespace ("MAPI")Встановити myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Встановити outItems = myInbox.ItemsDoCmd.Hourglass True'Отримати невдалі електронні листиДля кожного outItem В outItemsЯкщо InStr (outItem.Subject, "Повідомлення про стан доставки (помилка)")> 0 ТодіНалагодження.РоздрукуватиItem.SubjectЗакінчити ЯкщоДаліDoCmd.Hourglass FalseSet outOutlook = НічогоSet outNamespace = НічогоSet outItem = Нічого |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
