向outlook的联系人里添加数据的代码

loadhigh

代码如下： '定义outlook的application和namespace Dim myolapp As New Outlook.Application Dim mynamespace As Outlook.NameSpace Set mynamespace = myolapp.GetNamespace("MAPI") Set myAddrList = mynamespace.AddressLists("联系人") Set myAddrEntries = myAddrList.AddressEntries '向联系人里加入loadhigh 的邮件信息。 Set myEntry = myAddrEntries.Add("Microsoft Mail Address", "loadhigh") myEntry.Address = "loadhigh@21cn.com" myEntry.Update 注意：myEntry.Addess、Name的属性也可以是变量。

DC.Direct

经典，能否请版主大驾，将此类VBA程序至顶部，以便大家能随时查询和请教，谢谢！ loadhigh，你太好了。真高兴认识你！

ostholz

问题是这样不可以操作自定义字段的信息. 比如我自定义了一个联系人视图,里面除了名字,电话,邮件外另加了 ABC, DEF, FGH 字段. 也能用程序对这些字段操作吗?