Script para modificar Outlook (2003) contatos

Question

Eu estou tentando limpar meus contatos Outlook 2003, que se tornou uma bagunça bastante feio de vários formatação, etc.

Basicamente, eu tenho um monte de contatos, na forma de:

0xXXXXXXXX [dígitos dez, começando com 0] 0xxxxxxxx [nove dígitos, começando com 0] 0xxxxxxxx (xxxxx) [os mesmos nove dígitos acima com o último cinco repetidas em parênteses] + xxxxxxx [alguns números aleatórios "completo" com um código de discagem internacional, etc]

Eu quero que todos os números para coincidir com o último formato. O algoritmo é bastante simples: para os dois primeiros tipos, gota a 0 e adicionar + YYY onde YYY é o código de país. O mesmo vale para o terceiro, mas queda tudo entre parênteses.

O meu problema é que eu não sei como ir sobre fazer isto. Eu escrevi um milhão de roteiros na minha vida em Perl, mas eu prefiro não exportar tudo para texto, processá-lo e re-importação; Eu gostaria de ter uma solução de um clique que pode facilmente ser re-run (como quando eu importar um novo contato do diretório dos meus empresas que vem em uma das formas acima). Eu suspeito que VBScript é o caminho a percorrer; Eu vi algumas referências on-line para acessar contados como objetos, mas eu não tenho certeza qual é a melhor maneira de começar é.

Qualquer recursos recomendados?

Esta é uma duplicata de https://superuser.com/questions/15913/ roteiro-to-modificar-outlook-2003-contatos ; Eu não tenho certeza qual site é uma melhor localização

Answer 1

Eu diria VBA, em vez de 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