修改 Outlook (2003) 联系人的脚本答案

【问题标题】：Script to modify outlook (2003) contacts修改 Outlook (2003) 联系人的脚本
【发布时间】：2009-08-07 00:05:01
【问题描述】：

我正在尝试清理我的 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 的副本；我不确定哪个网站的位置更好

【问题讨论】：

标签： formatting outlook scripting outlook-2003

【解决方案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

【讨论】：