Скрипт для изменения контактов outlook (2003)

Question

Я пытаюсь очистить свои контакты Outlook 2003, который стал довольно уродливым беспорядком различного форматирования и т. Д.

В принципе, у меня есть куча контактов, в виде:

0xxxxxxxxx [десять цифр, начиная с 0] 0xxxxxxxx [девять цифр, начиная с 0] 0xxxxxxxx (xxxxx) [те же девять цифр выше с последними пятью повторениями в скобках] +xxxxxxx [некоторое случайное "полное" число с международным телефонным кодом, так далее]

Я хочу, чтобы все числа соответствовали последнему формату. Алгоритм достаточно прост: для первых двух типов отбросьте 0 и добавьте +YYY, где YYY - код моей страны. То же самое для третьего, но все в скобках.

Моя проблема в том, что я не знаю, как это сделать. Я написал миллион сценариев в своей жизни на Perl, но я бы предпочел не экспортировать все в текст, обрабатывать его и повторно импортировать; Я хотел бы иметь решение в один клик, которое можно легко запустить повторно (например, когда я импортирую новый контакт из каталога моей компании, который входит в одну из форм выше). Я подозреваю, что VBScript - это путь; В Интернете я видел несколько ссылок на доступ к контактам как к объектам, но я не совсем уверен, что это лучший способ начать.

Любые рекомендуемые ресурсы?

Это дубликат https://superuser.com/questions/15913/script-to-modify-outlook-2003-contacts; Я не уверен, какой сайт лучше

Answer 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