提供另一种添加联系人的方法(NameSpace.AddressLists)

loadhigh · 发表于 2003-12-29 19:21

Outlook的编程对象都是从一个NameSpace对象开始的,一层一层递进的. 现在就提供一个添加联系人的方法.各个对象有各个对象的方法和属性,可以在outlook的 vba环境中打开帮助检索相关的内容. 如下的代码,可以引入任何具备vba环境的office套件内执行,如excel,access等,也可以在vb中执行.注意:需要引用"outlook x.0 object library". sub insert_address() Dim olapp As New Outlook.Application Set myg = olapp.GetNamespace("MAPI").AddressLists("联系人").AddressEntries.Add("Microsoft Mail Address", "loadhigh") '在联系人内加入姓名为"loadhigh"的联系人,对应的对象为myg,当然也可以将"loadhigh"替换为一个字符型变量,指代联系人姓名 myg.Address = "loadhigh@21cn.com" '加入联系人的电子邮件地址,这里也可以将电子邮件地址替换一个字符型变量,指代电子邮件 Set myg = Nothing '关闭myg对象 end sub

seekyes · 发表于 2005-4-16 09:05

再多一个添加内容呢？

lgcmeli · 发表于 2005-5-16 22:59

我试验一下.

sage007 · 发表于 2006-5-23 23:25

谢谢了，从结构了解，说明详细，比看ＭＳＤＮ快多啦

采菊西篱 · 发表于 2012-11-20 17:21

谢谢了，很不错

tex · 发表于 2013-12-23 18:37

收藏学习了，我是新人，加油！

zxch2008 · 发表于 2014-4-16 21:15

怎样设置啊，楼主给讲讲。

		自动登录	找回密码
密码			免费注册