Localizando todos os membros em uma lista de distribuição em massa, incluindo membros das listas aninhadas

Question

Estou com um problema ao tentar obter todos os membros de uma lista de distribuição no Outlook, incluindo seus nomes, e-mails e títulos de trabalho. Eu usei o seguinte VBA que eu poderia facilmente editar para obter mais do que apenas o nome, mas ainda não faz um loop para expandir as listas aninhadas também. Eu não tenho acesso ao Exchange Powershell. Existe uma solução VBA? Eu prefiro não tentar apertar o botão '+' centenas de vezes. Agradecemos antecipadamente!.

    Sub GetDGMembers()

Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olAL As Outlook.AddressList
Dim olEntry As Outlook.AddressEntry
Dim olMember As Outlook.AddressEntry
Dim lMemberCount As Long
Dim objMail As Outlook.MailItem

Set olApp = Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olAL = olNS.AddressLists("Global Address List")

Set objMail = olApp.CreateItem(olMailItem)

' enter the list name
Set olEntry = olAL.AddressEntries("GlobalMorningReport")

' get count of dist list members
lMemberCount = olEntry.Members.Count

' loop through dist list and extract members
Dim i As Long
For i = 1 To lMemberCount
  Set olMember = olEntry.Members.Item(i)
  strName = olMember.Name

  objMail.Body = objMail.Body & strName

Next i

objMail.Display

End Sub