Innehållsförteckning
Du kanske vill få en lista över alla avvisade e -postmeddelanden från Outlook. Denna kod bör hjälpa dig att komma igång:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationDim outNamespace Som Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems As Outlook.ItemsDimma ut objektet som objektAnge outNamespace = outOutlook.GetNamespace ("MAPI")Ange myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Ange outItems = myInbox.ItemsDoCmd.Hourglass True'Hämta misslyckade e -postmeddelandenFör varje outItem In outItemsOm InStr (outItem.Subject, "Meddelande om leveransstatus (fel)")> 0 SedanDebug.Print outItem.SubjectAvsluta omNästaDoCmd. Timglas FalseSet outOutlook = IngentingSet outNamespace = IngentingSet outItem = Ingenting |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
