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

Question

我正在尝试清理我的Outlook 2003联系人，这已成为各种格式化等相当难看的混乱。

基本上，我有一堆联系人，形式为：

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

我希望所有数字都与最后一种格式相匹配。算法很简单：对于前两种类型，删除0并添加+ YYY，其中YYY是我的国家代码。第三个同上，但放弃括号中的所有内容。

我的问题是我不知道该怎么做。我在Perl中写了一百万个脚本，但我宁愿不将所有内容导出到文本，处理它，重新导入;我想要一个可以轻松重新运行的一键式解决方案（例如当我从我公司的目录中导入一个新的联系人时，它来自上面的一个表格）。我怀疑VBScript是要走的路;我在网上看到了一些访问联系人作为对象的参考资料，但我不确定最好的入门方式是什么。

任何推荐的资源？

这是 https://superuser.com/questions/15913/的副本script-to-modify-outlook-2003-contacts ;我不确定哪个网站是更好的位置

Answer 1

我会说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