Faxnummern in Outlook - eigenartiges Verhalten

Moin,

eigentlich wollte ich heute mal mit den Mädels schimpfen, weil die die ausgehenden Faxe manuell mit der Faxnummer erfreuen, aber ...

Situation:

Ich habe in einem öffentlichen Ordner auf MX2010 die Kontaktdaten der niedergelassenen Kollegen in der Umgebung (und das sind leider recht viele) mit Telefon geschäftlich und Fax geschäftlich abgelegt. Ich nutze für abgehende Faxe den MS Faxservice auf W2008R2, gefaxt wird ausschliesslich von W7x86-Stationen, da mit x64 W7 die Nutzung der Adressbücher aus ÖO für den Faxdienst nicht mehr möglich ist.
Da ich mich schon lange mal darüber aufregen wollte(), dass meine Mädels jede Faxnummer mit Hand einklöppeln, statt die Adressbücher zu benutzen, wollte ich heute eine höchstgöttliche Lehrvorführung starten ... und bin als Bettvorleger gelandet. Windows Fax und Scan erkennt die im superkanonischen Format angelegten Faxnummern nicht. Wenn ich die Nummer 1:1 im Kontakt in Fax privat kopiere - ebenfalls superkanonisch formatiert - kein Problem, dann akzeptiert W7x86 das Gedöhns.

Frage1: kennt jemand von Euch das Problem?
Frage2: kann ein DAU wie ich das copy der Faxnummern über ein (VBA?-) Script en bloc erledigen?? Es handelt sich um ca. 2000 Kontakte ...

Für HInweise & Tipps wie immer dankbar und LG, Thomas

Sub CopyBusinessFaxNumberToPrivateFaxNumber()
    Dim folderContacts As Folder, contact As Object, counter As Integer
    'Aktuell ausgewählten Ordner in Outlook bearbeiten  
    Set folderContacts = ActiveExplorer.CurrentFolder
    counter = 0
    If folderContacts.DefaultItemType = olContactItem Then
        For Each contact In folderContacts.items
            If contact.Class = olContact Then
                ' HomeFaxNumber = BusinessFaxNumber  
                contact.HomeFaxNumber = contact.BusinessFaxNumber
                contact.Save
                counter = counter + 1
            End If
        Next
        MsgBox counter & " Kontakt(e) wurden verarbeitet.", vbInformation  
    Else
        MsgBox "Der ausgewählte Ordner ist kein Kontaktordner", vbExclamation  
    End If
End Sub