Script pour modifier les perspectives (2003) contacts

Question

Je suis en train de nettoyer mes contacts Outlook 2003, qui est devenu un désordre assez laid de divers formatage, etc.

Fondamentalement, j'ai un groupe de contacts, en la forme soit:

0xXXXXXXXX [dix chiffres, en commençant par 0] 0xxxxxxxx [neuf chiffres, en commençant par 0] 0xxxxxxxx (xxxxx) [les mêmes neuf chiffres ci-dessus avec les cinq derniers répétées entre parenthèses] + xxxxxxx [certains aléatoire "complet" numéro avec un indicatif international, etc]

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

Mon problème est que je ne sais pas comment procéder. J'ai écrit un million de scripts dans ma vie en Perl, mais je préfère ne pas tout exporter au texte, le traiter et le réimporter; J'aimerais avoir une solution en un clic qui peut être facilement relancée (par exemple, lorsque j'importe un nouveau contact du répertoire de mes entreprises qui se trouve dans 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 suis pas vraiment sûr de la meilleure façon de commencer.

Toutes les ressources recommandées? Il s'agit d'un doublon de https://superuser.com/questions/15913/script-to-modify-outlook-2003-contacts; Je ne suis pas sûr quel site est un 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