0

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

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

0xxxxxxxxx [十位数字，以 0 开头] 0xxxxxxxx [九位数字，以 0 开头] 0xxxxxxxx (xxxxx) [上面相同的九位数字，最后五位在括号中重复] +xxxxxxx [一些随机的“完整”号码，带有国际拨号代码， ETC]

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

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

有什么推荐的资源吗？

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

4

1 回答 1

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
于 2009-07-31T12:30:06.190 回答