Retrieve Distribution Lists from a List of Outlook Names

I think this is what you're looking for:

Sub GetMemberDistributionLists()
    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 Members"
    ActiveSheet.Range("C1") = "Member name"
    ActiveSheet.Range("D1") = "Dist List"
    
    For Each entry In myAddrList.AddressEntries
        If entry.DisplayType = olDistList Then
            For Each mem In entry.Members
                For Each c In Range("Chosen_Member_Names")
                    If (mem.DisplayType = olUser Or mem.DisplayType = olRemoteUser) _
                      And c.Value = mem.Name Then
                            ActiveSheet.Range("C" & idxLine + 1) = mem.Name
                            ActiveSheet.Range("D" & idxLine + 1) = entry.Name
                            idxLine = idxLine + 1
                    End If
                Next
            Next
        End If
    Next
End Sub

Select all Open in new window

Thanks for the quick response time, but when I run it I get:

Run-time error '1004':

Method 'Range' of object '_Global' failed.
-----------------------------------------------------------
When I choose debug, the following line is highlighted:
  For Each c In Range("Chosen_Member_Names")

Sorry. I should have mentioned something about that.  Your other subroutine relied on the named range "Chosen_Dist_List"; I wrote the new subroutine to use the named range "Chosen_Member_Names".

If you'd prefer another name or a different way to refer to the range where the member names are located, the line that's failing can easily be tweaked accordingly.

I have attached the spreadsheet that was used for the Getting the People for Lists.
Could you tweak it so it would work with your code for Getting the Lists for People.

Thanks,
Alex
GetLists.xlsm

Updated spreadsheet is attached. The "Getting Lists for People" uses Tabelle2.

I also did a little cleanup to the subroutines:
GetLists.xlsm

Thanks, I will take a look tomorrow. Have to leave right now.

I tried both tabs.

The first tab and macro works, but I get an error with the second one.

The error is:
Run-time error
'-590331899 (dcd04005)':

When I choose debug, I get "For Each mem In entry.Members" highlighted.

idxLine = 1
    For Each entry In myAddrList.AddressEntries
        If entry.DisplayType = desiredType Then
            For Each mem In entry.Members
                If (mem.DisplayType = olUser Or mem.DisplayType = olRemoteUser) Then
                    For Each c In Range(namedRangeMembers)
                        If c.Value = mem.Name 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
GetMembersAndLists.xlsm

I think the problems may be time-outs or lock-outs from the network.
Since it is large corporate environment, I may have to go to the administrators for the information.  Thanks for the efforts. I will give you the points.

Double-checked. Yes, I do have them (see first image below)

I still get the error messages.

The first macro GetDistributionListMembers gets a result for one list in 15 seconds.
Then, at 30 seconds there is the message:
Outlook is trying retrieve data from the Microsoft Exchange Server Outlook.xxx.xxx

Due to corporate restrictions, I was not able to get the information I was looking for, but the macro appears to be written properly.

Try adding "On Error Resume Next" before the operations that are failing. That won't get you around the corporate restrictions, but it might allow you to generate the report for those distribution lists you are allowed to see.