If managing Active Directory using Windows Powershell® is making you feel like you stepped back in time, you are not alone. For nearly 20 years, AD admins around the world have used one tool for day-to-day AD management: Hyena. Discover why.
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.