Outlook（2003）の連絡先を変更するスクリプト

StackOverflow https://stackoverflow.com/questions/1209369

質問

Outlook 2003の連絡先をクリーンアップしようとしていますが、これはさまざまな書式設定などのかなりい混乱になりました。

基本的に、次のいずれかの形式の連絡先がたくさんあります：

0xxxxxxxxx [10桁、0で始まる] 0xxxxxxxx [9桁、0で始まる] 0xxxxxxxx（xxxxx）[最後の5桁が括弧で囲まれた上記の9桁] + xxxxxxx [ランダムな「完全な」国際ダイヤルコードなどの番号]

すべての数値が最後の形式と一致するようにします。アルゴリズムは非常に単純です。最初の2つのタイプでは、0を削除して+ YYYを追加します（YYYは国コードです）。 3番目についても同じですが、括弧内にすべてをドロップします。

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

推奨リソースはありますか

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

役に立ちましたか？

解決

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
ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top