Съдържание
Може да искате да получите списък с всички отхвърлени имейли от Outlook. Този код трябва да ви помогне да започнете:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationЗатъмнете пространството на имената като Outlook.NameSpaceЗатъмнете myInbox като Outlook.MAPIFolderЗатъмнете елементите като Outlook.ItemsЗатъмнете обекта като обектЗадайте 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 FalseSet outOutlook = НищоSet outNamespace = НищоSet outItem = Нищо |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
