スクリプトは基本的に、私は、連絡先の束を持っている見通し、私は様々なフォーマットのではなく醜い台無しになってきた私のOutlook 2003人の連絡先を、クリーンアップしようとしている（2003年）の連絡先

Question

など

を変更します

0xxxxxxxxx [0から始まる10桁の数字] 0xxxxxxxx [9桁、0から始まる] 0xxxxxxxx（xxxxx）[上の9桁は上の5桁がカッコ内で繰り返されます] + xxxxxxx [some random国際電話コードで「完全」番号など]

すべての数字が最後の形式に一致するようにします。アルゴリズムは簡単です：最初の2つのタイプの場合、0を落として+ YYYを追加します。ここで、YYYは国コードです。第三のために同上だが、カッコ内のすべてを落とす。

私の問題は、これをどうやって行うのかわからないということです。私はPerlで私の人生で百万のスクリプトを書いてきましたが、私はむしろすべてをテキストにエクスポートし、処理し、再インポートしません。私は簡単に再実行することができます（上記のフォームのいずれかに入っている私の会社のディレクトリから新しい連絡先をインポートするときなど）をワンクリックで行うことができます。私はVBScriptが行く方法だと思う。私はオブジェクトとして連絡先にアクセスするためにオンラインでいくつかの参照を見てきましたが、私は本当に始めるための最善の方法は何か分かりません。

推奨リソース

これはhttps://superuser.com/questions/15913/script-to-modify-outlook-2003-contactsの複製です。どのサイトがより良い場所であるか分かりません

Answer 1

VBScriptではなくVBAと言います。

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