2009年3月26日 星期四

匯出GAL 全域通訊清單

方法一: PowerShell指令匯出 (並可針對部門別進行排序)

方法二:

查詢微軟官方網站匯出GAL方法,資料完整但操作步驟多 

方法三: 

在Outlook內 VbaProject.OTM 中,加入VBA程式,匯出AD資料至Excel中 'Dim ExcelSheet As excel.Application Set objExcel = CreateObject("Excel.Application") objExcel.Application.Visible = True objExcel.Workbooks.Add Dim intCounter As Integer Dim outApp As Outlook.Application Dim outNms As Outlook.NameSpace Dim outAddr As Outlook.AddressList Dim outRcpts As Outlook.AddressEntries Dim outRcpt As Outlook.AddressEntry Set outApp = New Outlook.Application Set outNms = outApp.GetNamespace("MAPI") Set outAddr = outNms.AddressLists("全域通訊清單") '中文ExchangeServer環境預設名稱 'Set outAddr = outNms.AddressLists("Global Address List") '英文ExchangeServer環境預設名稱 Set outRcpts = outAddr.AddressEntries 'On Error GoTo hError On Error Resume Next Application.displayalerts = False For Each outRcpt In outRcpts objExcel.Cells(intCounter, 1).Value = outRcpt.Name objExcel.Cells(intCounter, 2).Value = outRcpt.Address intCounter = intCounter + 1 Next outRcpt objExcel.Application.Quit 'hError: Set objExcel = Nothing Set outApp = Nothing Set outNms = Nothing Set outAddr = Nothing Set outRcpts = Nothing Application.displayalerts = True 'Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext 

方法四: 透過微軟CSVDE工具,匯出成CSV格式

方法五:Outlook GUI界面 Step-by-Step匯出

1.在Outlook通訊錄, (右上方視窗選取 全域通訊清單) 

2.選擇 檔案|開啟舊檔|匯入/匯出

3.匯出至檔案

4.逗點分隔值 (即CSV)