Πίνακας περιεχομένων
Μπορεί να θέλετε να λάβετε μια λίστα με όλα τα μηνύματα ηλεκτρονικού ταχυδρομείου που αναπήδησαν από το Outlook. Αυτός ο κωδικός θα σας βοηθήσει να ξεκινήσετε:
| 1234567891011121314151617181920212223242526 | Dim outOutlook ως νέο Outlook. ΕφαρμογήDim outNamespace As Outlook.NameSpaceDim myInbox As Outlook.MAPIFolderDim outItems As Outlook. ΣτοιχείαDim outItem As ObjectΟρισμός outNamespace = outOutlook.GetNamespace ("MAPI")Ορισμός myInbox = outNamespace.GetDefaultFolder (olFolderInbox)Ορίστε outItems = myInbox. ΣτοιχείαDoCmd. Hourglass True«Ανάκτηση αποτυχημένων μηνυμάτων ηλεκτρονικού ταχυδρομείουΓια κάθε outItem In outItemsΕάν InStr (outItem.Subject, "Delivery Status Notification (Failure)")> 0 ΤότεDebug.Print outItem.SubjectΤέλος εανΕπόμενοDoCmd. Hourglass FalseSet outOutlook = ΤίποταSet outNamespace = ΤίποταSet outItem = Τίποτα |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
