विषय - सूची
आप आउटलुक से सभी बाउंस ईमेल की सूची प्राप्त करना चाह सकते हैं। यह कोड आपको आरंभ करने में मदद करेगा:
| 1234567891011121314151617181920212223242526 | नए आउटलुक के रूप में मंद आउटलुक। आवेदनOutlook.NameSpace . के रूप में नामस्थान मंद करेंMyInbox को Outlook के रूप में मंद करें।MAPIFolderOutlook.Items के रूप में मंद आउटआइटम्सडिम आउटआइटम के रूप में वस्तुसेट आउटनेमस्पेस = आउटलुक। गेटनेमस्पेस ("एमएपीआई")myInbox = outNamespace.GetDefaultFolder(olFolderInbox) सेट करेंसेट आउटआइटम्स = myInbox.ItemsDoCmd.ऑवरग्लास ट्रू'विफल ईमेल पुनर्प्राप्त करें'प्रत्येक आउटआइटम के लिए आउटआइटम मेंयदि InStr(outItem.Subject, "डिलीवरी स्थिति अधिसूचना (विफलता)") > 0 तोडिबग.प्रिंट आउटआइटम.विषयअगर अंतअगलाDoCmd.ऑवरग्लास झूठाआउटलुक सेट करें = कुछ नहींसेट आउट नेमस्पेस = कुछ नहींसेट आउटआइटम = कुछ नहीं |
https://bytes.com/topic/access/answers/954203-retrieve-list-bounced-email-addresses-outlook-into-access
