Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Sub ReadBounced() Dim olkApp As Object, olkSes As Object, olkFld As Object, olkMsg As Object Set olkApp = CreateObject("Outlook.Application") Set olkSes = olkApp.GetNamespace("MAPI") olkSes.Logon Set olkFld = olkSes.GetDefaultFolder(6).Folders("00 Technical").Folders("Bounced emails") For Each olkMsg In olkFld.Items With olkMsg Debug.Print .SenderEmailAddress End With Next Set olkMsg = Nothing Set olkFld = Nothing olkSes.Logoff Set olkSes = Nothing Set olkApp = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Best way to get data into a database||12||56|
|Exchange 2010 to Exchange 2016 - VERY slow Mailbox Move||4||110|
|Disabeld users still apear in Skype For Business||4||30|
|Creating Recovery DB in Exchange 2010||3||29|
Join the community of 500,000 technology professionals and ask your questions.