如何批量展开嵌套通讯组列表（DL）并查询所有成员？

绝对懂这种手动点几百个“+”的痛苦！之前帮同事处理过类似的需求，给你分享几个高效的批量展开方法，亲测好用：

方法1：用PowerShell一键递归导出（最推荐） #

这是效率最高的方法，尤其是需要处理多个嵌套DL的时候：

1. 打开PowerShell（如果是本地Exchange环境，直接打开Exchange Management Shell）
2. 连接到Exchange Online（云端环境需要这一步）：

   Connect-ExchangeOnline
   

3. 运行递归查询命令，替换成你的DL名称，还能直接导出到CSV方便整理：

   Get-DistributionGroupMember -Identity "你的通讯组名称" -Recursive | Select-Object Name, PrimarySmtpAddress | Export-Csv -Path "C:\DL成员列表.csv" -NoTypeInformation -Encoding UTF8
   

   • 关键参数说明：-Recursive会自动遍历所有嵌套的子DL，不用手动展开；Select-Object可以指定你需要的字段（比如姓名、邮箱）；Export-Csv把结果导出到本地文件。

方法2：Outlook VBA宏（适合不想碰脚本的用户） #

如果平时习惯用Outlook操作，写个简单的宏就能自动展开嵌套DL：

1. 打开Outlook，按下Alt + F11打开VBA编辑器
2. 右键左侧的Project1 → 插入 → 模块
3. 粘贴下面的代码：

   Sub ExportDLMembers()
       Dim objDL As DistListItem
       Dim objMember As Recipient
       Dim objFSO As Object
       Dim objFile As Object
       Dim strPath As String
       Dim strDLName As String
       
       strDLName = InputBox("请输入通讯组列表的名称：")
       If strDLName = "" Then Exit Sub
       
       On Error Resume Next
       Set objDL = Application.Session.GetDefaultFolder(olFolderContacts).Items(strDLName)
       On Error GoTo 0
       
       If objDL Is Nothing Then
           MsgBox "未找到该通讯组列表，请检查名称是否正确。", vbExclamation
           Exit Sub
       End If
       
       strPath = Environ("USERPROFILE") & "\Desktop\DL成员列表.txt"
       Set objFSO = CreateObject("Scripting.FileSystemObject")
       Set objFile = objFSO.CreateTextFile(strPath, True, True)
       
       objFile.WriteLine "通讯组名称：" & objDL.DLName
       objFile.WriteLine "-------------------------"
       
       ' 递归遍历所有成员
       Call ListDLMembers(objDL, objFile, 0)
       
       objFile.Close
       Set objFile = Nothing
       Set objFSO = Nothing
       Set objDL = Nothing
       
       MsgBox "成员列表已导出到桌面的DL成员列表.txt文件。", vbInformation
   End Sub
   
   Sub ListDLMembers(objDL As DistListItem, objFile As Object, intIndent As Integer)
       Dim objMember As Recipient
       Dim objNestedDL As DistListItem
       
       For Each objMember In objDL.Members
           objFile.WriteLine String(intIndent * 2, " ") & objMember.Name & " (" & objMember.Address & ")"
           
           ' 判断是否是嵌套的通讯组
           If objMember.AddressEntry.DisplayType = olDistributionList Then
               Set objNestedDL = objMember.AddressEntry.GetExchangeDistributionList.GetContact
               If Not objNestedDL Is Nothing Then
                   Call ListDLMembers(objNestedDL, objFile, intIndent + 1)
               End If
           End If
       Next objMember
   End Sub
   

4. 按下F5运行宏，输入目标DL的名称，就能在桌面得到自动展开所有嵌套成员的TXT文件。

注意事项 #

• 不管用哪种方法，你需要拥有查看通讯组成员的权限，如果权限不足会返回空结果或报错，记得联系管理员授权。
• PowerShell方法支持批量处理，你可以写个循环脚本一次性导出多个DL的成员列表。
• Outlook宏第一次运行可能会触发安全提示，选择“启用宏”即可正常使用。

内容的提问来源于stack exchange，提问作者Dekeon