Sommario
Potresti voler ottenere un elenco di tutte le email respinte da Outlook. Questo codice dovrebbe aiutarti a iniziare:
| 1234567891011121314151617181920212223242526 | Dim outOutlook come nuova Outlook.ApplicationDim outNamespace As Outlook.NameSpaceDim myInbox As Outlook.MAPIFfolderDim outItems As Outlook.ItemsDim outItem As ObjectImposta outNamespace = outOutlook.GetNamespace("MAPI")Imposta myInbox = outNamespace.GetDefaultFolder(olFolderInbox)Imposta outItems = myInbox.ItemsDoCmd.Hourglass True"Recupero di email non riuscite"Per ogni articolo In outItemsSe InStr(outItem.Subject, "Notifica dello stato di consegna (fallimento)") > 0 AlloraDebug.Print outItem.SubjectFinisci seProssimoDoCmd.Hourglass FalseImposta Outlook = NienteImposta outNamespace = NienteSet outItem = Niente |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
