[分享][原创]获取outlook的通讯簿联系人的信息。

loadhigh · 发表于 2004-2-28 22:52

这里提供一个宏代码可以在将outlook通讯簿中的联系人的姓名和电子邮件地址导入到当前excel文件的sheet1内。请将代码复制到一个新建的excel文件里，还需要引用outlook application library.
Sub Output_Contact()

Dim myolapp As New Outlook.Application

Set myNameSpace = myolapp.GetNamespace("MAPI")
Set myAddressList = myNameSpace.AddressLists("联系人")
Set myaddressentries = myAddressList.AddressEntries

For i = 1 To myaddressentries.Count

    With Sheet1
      .Cells(i, 1) = myaddressentries(i).Name
      .Cells(i, 2) = myaddressentries(i).Address

    End With

Next

End Sub
如下为包含这个宏的excel文件：

86hDydYQ.rar (7.47 KB, 下载次数: 666)

[此贴子已经被Kevin于2006-7-4 20:04:52编辑过]

FENGJUN · 发表于 2004-7-22 09:16

精华帖子不应沉默（沉没）的。

oyalu · 发表于 2004-9-1 13:14

it's very good

zz5151353 · 发表于 2004-10-8 00:57

好东西,感谢LOADHIGH 版主提供分享.

zhhlucky · 发表于 2004-10-26 09:11

very good

zhhlucky · 发表于 2004-10-26 09:15

还是楼主好，把自己的东东都开放了。很多很好的东东可惜俺们的级别不到都没有资格来看。真的好郁闷？怎样才能攒够看精华帖的分数呢？偶又有自己的工作，经常到这里来泡着也不大现场。呜呜……

zhhlucky · 发表于 2004-10-26 09:17

请教楼主：到哪里可以下载 outlook application library，我的应用库里没有，用GOOGLE 搜了也没搜到。我是菜鸟，提的问题很简单，请不要拍砖啊！！

谢谢！

luzy · 发表于 2004-12-23 12:06

正需要呢，谢谢

fana · 发表于 2004-12-24 21:34

我把代码复制到自己新建的excel里面，运行会报错说“Dim myolapp As New Outlook.Application ”这句话用户定义类型未定义？

smliao · 发表于 2004-12-26 22:31

太好了,谢谢!

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