代码之家 › 专栏 › 技术社区 › Mikeage

用于修改Outlook(2003)联系人的脚本

outlook-2003 scripting outlook formatting

0

Mikeage · 技术社区 · 15 年前

我正在尝试清理我的Outlook2003联系人,这已经变成了各种格式等相当难看的混乱。

基本上,我有很多联系人,形式如下:

0xXXXXXXX[十位数字,从0开始]0xXXXXXXX[九位数字,从0开始]0xXXXXXXX(XXXX)[上面的九位数字与括号中最后五个重复的数字相同]+XXXXXXX[一些带有国际拨号码的随机“完整”号码,等等]

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

我的问题是我不知道该怎么做。我已经用Perl编写了一百万个脚本,但我不想把所有内容都导出到文本中,进行处理,然后重新导入;我希望有一个可以轻松重新运行的一键式解决方案(例如,当我从我公司的目录中导入一个新联系人时,该联系人位于上面的某个表单中)。我怀疑vbscript是一种可行的方法;我在网上看到过一些将联系人作为对象访问的引用,但我不确定开始的最佳方法是什么。

有推荐的资源吗?

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

1 回复 | 直到 15 年前

1

Fionnuala 15 年前

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