|
|
|
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 |
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2003-12-29 19:21
