Skript in Outlook (2003) Kontakte ändern

Question

Ich versuche, meinen Outlook 2003 Kontakte zu bereinigen, die ein ziemlich hässlichen Durcheinander verschiedener Formatierung worden ist, etc.

Grundsätzlich habe ich eine Reihe von Kontakten, die in Form von entweder:

0xxxxxxxxx [zehn Ziffern, beginnend mit 0] 0xxxxxxxx [neun Ziffern, beginnend mit 0] 0xxxxxxxx (xxxxx) [den gleichen neun Ziffern oben mit den letzten fünf wiederholt in Klammern] + xxxxxxx [some random "complete" Zahl mit einem internationaler Vorwahl, etc]

Ich möchte alle Zahlen das letzte Format anzupassen. Der Algorithmus ist einfach: für die ersten beiden Typen, die 0 fallen und + YYY hinzufügen wo YYY meines Ländercode ist. Das Gleiche gilt für die dritten, aber alles in Klammern fallen.

Mein Problem ist, dass ich weiß nicht, wie zu tun, dies zu realisieren. Ich habe eine Million Skripte in meinem Leben in Perl geschrieben, aber ich möchte lieber nicht exportieren alles, um Text, zu verarbeiten und Re-Import; Ich möchte eine Lösung mit einem Klick haben, die leicht wieder ausgeführt werden können (wie zum Beispiel, wenn ich einen neuen Kontakt aus meinem Unternehmen Verzeichnis importieren, die oben in einen der Formen kommen). Ich vermute, dass VBScript ist der Weg zu gehen; Ich habe ein paar Referenzen online gesehen Kontakte als Objekte zugreifen, aber ich bin nicht wirklich sicher, was der beste Weg ist, um zu beginnen.

Jede empfohlene Ressourcen?

Dies ist ein Duplikat von https://superuser.com/questions/15913/ Script-to-Modifikations-Ausblick-2003-Kontakte ; Ich bin nicht sicher, welche Seite ist eine bessere Lage

Answer 1

Ich würde sagen, VBA, anstatt 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