Improve and reinforce salesforce training & adoption using WalkMe's digital adoption platform. Start saving on costly employee training by creating fast intuitive Walk-Thrus for Salesforce. Claim your Free Account Now
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.
Join the community of 500,000 technology professionals and ask your questions.