Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
Sub GetDistributionListMembers() Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Dim addrLists As AddressLists Set addrLists = objNamespace.Session.AddressLists Dim addrList As AddressList For Each addrList In addrLists If addrList.Name = "All Groups" Then Set myAddrList = addrList Exit For End If Next idxLine = 1 ActiveSheet.Range("A1") = "Chosen Dist List" ActiveSheet.Range("C1") = "Member name" ActiveSheet.Range("D1") = "Dist List" For Each Entry In myAddrList.AddressEntries If Entry.DisplayType = olDistList Then For Each c In Range("Chosen_Dist_List") If c.Value = Entry.Name Then For Each Mem In Entry.Members If Mem.DisplayType = olUser Or Mem.DisplayType = olRemoteUser Then ActiveSheet.Range("C" & idxLine + 1) = Mem.Name ActiveSheet.Range("D" & idxLine + 1) = Entry.Name idxLine = idxLine + 1 End If Next End If Next End If Next 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.