Indholdsfortegnelse
Du vil måske få en liste over alle afviste e -mails fra Outlook. Denne kode skal hjælpe dig i gang:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationDim outNamespace Som Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems som Outlook.ItemsDim outItem som objektIndstil outNamespace = outOutlook.GetNamespace ("MAPI")Indstil myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Angiv outItems = myInbox.ItemsDoCmd.Hourglass True'Hent mislykkede e -mailsFor hvert outItem In outItemsHvis InStr (outItem.Subject, "Meddelelse om leveringsstatus (fejl)")> 0Debug.Print outItem.SubjectAfslut HvisNæsteDoCmd. Timeglas FalskSet outOutlook = IntetSet outNamespace = IntetSet outItem = Intet |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
