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

2009年1月7日 星期三

CleanIECacheData清除IE內部暫存資料

下面文字,複製並貼上於Notepad後,另存成VBS檔案格式
Option Explicit
Dim WshShell, RegIEv1 ,ShellCmd
Set WshShell = WScript.CreateObject("WScript.Shell")
RegIEv1 = "HKLM\Software\Microsoft\Internet Explorer\"
Const TIMEOUT = 5

'Check the version of IE & Clean all cache data
If Left(WshShell.RegRead(RegIEv1 & "Version"),1) >= 7 Then
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 1")
' WshShell.Run("rundll32.exe InetCpl.cpl,,ClearMyTracksByProcess 2")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 8")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 16")
' WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 32")
WshShell.Run("rundll32.exe InetCpl.cpl,ClearMyTracksByProcess 255")

'launch IE
WshShell.Run """C:\Program Files\Internet Explorer\iEXPLORE.EXE""",1,true
else

WshShell.Run "cmd /K c: & \DelIE6Cache.bat",2,true
WshShell.Run """C:\Program Files\Internet Explorer\iEXPLORE.EXE""",1,true


'Try to delete via manual
'因上面功能僅支援IE7以上,故IE6需手動刪除
'WshShell.Popup ("Only support IE7 or above !"),TIMEOUT, WScript.ScriptName, vbInformation
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Cookies\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\Temp\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\History\*.*"
'@FOR /D %%A IN ("C:\Documents and Settings\*.*") DO DEL /S/Q/F "%%A\Local Settings\Temporary Internet Files\*.*"

End If

WScript.quit
set WshShell = nothing

參考資料來源

相關參考資訊

相關工具:
(開放源碼)BleachBit,可清除IE之Cookies,History,Temporary files

Win32 Exception Message軟體執行出現例外錯誤訊息

使用Notepad++檢視檔案(CSS格式)時,跳出例外訊息An Exception occured Notepad++ cannot recover and must be shutdown The exception details are as follows:
code:0xC0000005
Type:Access violation
Exception Address:0x1004CEEC

出問題原因: 以WordPad可正常檢視該檔案,但部份字體顯示為亂碼文字化け(實際為字型編碼關係造成顯示為亂碼),以Firefox檢視其亂碼,實際為雙位元日文或中文碼

解決辦法:
以Firefox可正常顯示原來有問題之CSS檔,並將正常顯示之文字,全部複製(Ctrl+A & Ctrl+C)起來
開啟Notepad,貼在(Ctrl+V)新未命名文件,並下拉編碼(E)改為Unicode格式,覆蓋回原來之無法正常檢視之檔案,即可正常顯示

Quick Launch Desktop快速啟動工具列上之顯示桌面圖示不見了

步驟1:開啟Notepad記事本
步驟2:下面指令,複製並貼在記事本上
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
步驟3:
另存新檔至
%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch

檔名為:顯示桌面.scf (記得將記事本存檔預設為.TXT移除)



Windows7快速鍵資料夾位置:
"C:\Users\administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

資料來源:
http://support.microsoft.com/?scid=kb%3Bzh-tw%3B190355

TurnOff Speaker如何將電腦之聲音全部關閉

步驟1:(BEEP音の止め方)
DOS模式執行services.msc ,或點選  控制台之 服務
將 Windows Audio服務,予以關閉

步驟2:
將內建喇叭built-in Speaker關閉 ,將Beep機碼值改為NO ,並重新開機才會生效
HKEY_CURRENT_USER\Control Panel\Sound
Beep = "No" (Enabled = "Yes")

相關查詢:
喇叭沒聲音,