2009-07-30 31 views
0

我想清理我的Outlook 2003聯繫人,這已成爲各種格式的比較難看得一塌糊塗,等腳本修改展望(2003)接觸

基本上,我有一堆的接觸,在其形式如下:

0xxxxxxxxx [十位數字,從0開始] 0xxxxxxxx [九位數字,從0開始] 0xxxxxxxx(xxxxx)[同上九位數字,最後五位在括號內重複] + xxxxxxx [帶有國際撥號碼的「完整」號碼等]

我希望所有數字都與最後一種格式相匹配。該算法非常簡單:對於前兩種類型,刪除0並添加+ YYY,其中YYY是我的國家/地區代碼。第三,同上,但放在括號內的一切。

我的問題是,我不知道如何去做這件事。我在我的生活中用Perl編寫了一百萬個腳本,但我寧願不將所有內容都導出到文本,處理它,然後重新導入;我希望有一個可輕鬆重新運行的一鍵式解決方案(例如,當我從我公司的目錄中導入一個新的聯繫人時,該聯繫人將出現在上面的一個表單中)。我懷疑VBScript是要走的路;我已經在網上看到了一些參考資料,可以將聯繫人作爲對象訪問,但我不確定要開始的最佳方式是什麼。

任何推薦資源?

這是https://superuser.com/questions/15913/script-to-modify-outlook-2003-contacts的副本;我不確定哪個網站是更好的位置

回答

1

我會說VBA,而不是VBScript。

Sub GetContactsTel() 

    Set oFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) 
    ' Loop through all of the items in the folder. 
    For i = 1 To oFolder.Items.Count 
     Debug.Print oFolder.Items(i).BusinessTelephoneNumber 
    Next 

End Sub