Cuprins
Poate doriți să obțineți o listă a tuturor e-mailurilor trimise din Outlook. Acest cod ar trebui să vă ajute să începeți:
| 1234567891011121314151617181920212223242526 | Reduce Outlook ca aplicație nouă OutlookReduceți spațiul de nume ca Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems As Outlook.ItemsReduceți obiectul ca obiectSet outNamespace = outOutlook.GetNamespace ("MAPI")Set myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Preluarea e-mailurilor eșuatePentru fiecare outItem In outItemsDacă InStr (outItem.Subject, "Notificare stare livrare (eșec)")> 0 ApoiDebug.Print outItem.SubjectEnd IfUrmătorulDoCmd.Hourglass FalseSet outOutlook = NimicSet outNamespace = NimicSet outItem = Nothing |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
