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)

2009年3月25日 星期三

SMS簡訊發送,另一選擇

every8d簡訊傳送平台,每人(於總額限量管制內,發完為止)可免費發送8則簡訊 故不保證一定可取到免費發送權

優點:
1.可將常用簡訊接收人員,預先建檔儲存於平台上(筆者建議上傳網路資料,不要有太詳細之資料,因個資疑慮),方便發送
2.可自訂常用簡訊文字內容
3.可將平台資訊轉出為Excel檔,或匯入至平台上

資料來源:
http://news.msn.com.tw/news1220140.aspx