Script pour modifier les contacts Outlook (2003)

Question

J'essaie de nettoyer mes contacts Outlook 2003, qui sont devenus un gâchis plutôt moche de divers formats, etc.

En gros, j'ai beaucoup de contacts, soit:

0xxxxxxxxxx [dix chiffres, commençant par 0] 0xxxxxxxx [neuf chiffres, commençant par 0] 0xxxxxxxx (xxxxx) [les mêmes neuf chiffres ci-dessus, les cinq derniers étant répétés entre parenthèses] + xxxxxxx (quelque chose de aléatoire et quot; complet " numéro avec un indicatif international, etc.]

Je veux que tous les nombres correspondent au dernier format. L'algorithme est assez simple: pour les deux premiers types, supprimez le 0 et ajoutez + AAAA où AAAA est le code de mon pays. Idem pour le troisième, mais laissez tout entre parenthèses.

Mon problème est que je ne sais pas comment s'y prendre. J'ai écrit un million de scripts dans ma vie en Perl, mais je préférerais ne pas tout exporter en texte, le traiter et le réimporter. J'aimerais disposer d'une solution en un clic qui puisse être facilement ré-exécutée (par exemple, lorsque j'importe un nouveau contact depuis l'annuaire de mon entreprise qui se présente sous l'un des formulaires ci-dessus). Je soupçonne que VBScript est la voie à suivre; J'ai vu quelques références en ligne pour accéder à des contacts en tant qu'objets, mais je ne sais pas vraiment quel est le meilleur moyen de commencer.

Des ressources recommandées?

Il s'agit d'un duplicata de https://superuser.com/questions/15913/ script-to-modify-outlook-2003-contacts ; Je ne sais pas quel site est le meilleur emplacement

Answer 1

Je dirais VBA plutôt que 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