Formatting 用于修改outlook（2003）联系人的脚本

我正试图清理我的outlook 2003联系人，它已经变成了各种格式的一团乱麻，等等

基本上，我有很多联系人，形式如下：

0xxxxxxxxx[十位数字，从0开始]0xxxxxxxx[九位数字，从0开始]0xxxxxxxx（xxxxx）[以上九位数字相同，最后五位在括号中重复]+xxxxxxx[带有国际拨号码的随机“完整”号码，等等]

我希望所有数字都与最后一种格式匹配。算法非常简单：对于前两种类型，删除0并添加+YYY，其中YYY是我的国家代码。第三个也一样，但是把所有的东西都放在括号里

我的问题是我不知道该怎么做。我一生中用Perl编写了一百万个脚本，但我不希望将所有内容导出到文本、处理并重新导入；我希望有一个一键式解决方案，可以很容易地重新运行（例如，当我从我的公司目录中导入一个新联系人时，它以上面的一种形式出现）。我怀疑VBScript是一条出路；我在网上看到了一些关于将联系人作为对象访问的参考资料，但我不太确定开始的最佳方式是什么

有什么建议的资源吗

---

这是一个复制品；我不确定哪个站点是更好的位置

我要说的是VBA，而不是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