Table des matières
Vous souhaiterez peut-être obtenir une liste de tous les e-mails rejetés à partir d'Outlook. Ce code devrait vous aider à démarrer :
1234567891011121314151617181920212223242526 | Atténuer les perspectivesOutlook en tant que nouvelle Outlook.ApplicationDim outNamespace en tant qu'Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems comme Outlook.ItemsEstomper l'élément en tant qu'objetDéfinir outNamespace = outlook.GetNamespace("MAPI")Définir myInbox = outNamespace.GetDefaultFolder(olFolderInbox)Définir outItems = myInbox.ItemsDoCmd.Hourglass True'Récupérer les e-mails échouésPour chaque outItem In outItemsSi InStr(outItem.Subject, "Notification d'état de livraison (échec)") > 0 AlorsDebug.Print outItem.SubjectFin siProchainDoCmd.Hourglass FauxDéfinir Outlook = RienDéfinir l'espace de noms = rienDéfinir l'article = rien |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access