Satura rādītājs
Iespējams, vēlēsities no Outlook saņemt visu atlēkušo e -pasta ziņojumu sarakstu. Šim kodam vajadzētu palīdzēt jums sākt darbu:
| 1234567891011121314151617181920212223242526 | Dim outOutlook As New Outlook.ApplicationDim outNamespace kā Outlook.NameSpaceDim myInbox kā Outlook.MAPIFolderDim outItems As Outlook.ItemsDim outItem kā objektsIestatīt outNamespace = outOutlook.GetNamespace ("MAPI")Iestatīt myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Set outItems = myInbox.ItemsDoCmd.Hourglass True'Izgūt neizdevušos e -pastusKatram outItem vienumam outItemsJa InStr (outItem.Subject, "Piegādes statusa paziņojums (kļūme)")> 0 TadAtkļūdošana. Izdrukāt vienumu. TematsBeigas JaNākamaisDoCmd.Hourglass FalseSet outOutlook = NekasSet outNamespace = NekasSet outItem = Nekas |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
