Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.
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.
|compare column in an Excel spreadsheet.||1||38|
|Exchange 2013 on premise mailbox issue||2||32|
|Pull Name and Phone out of Cell||2||13|
|Emoji's work fine in Word 2016, but not in Outlook 2016 ?||29||32|