首页手机软件手机游戏单机游戏资讯文章专题下载游戏合集文章合集 php下载 php教程电脑软件

+ -

当前位置：首页 → 问答吧 → [分享][原创]获取outlook的通讯簿联系人的信息。

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

时间：2004-02-28

来源：互联网

这里提供一个宏代码可以在将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)

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

作者: loadhigh 发布时间: 2004-02-28

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

作者: FENGJUN 发布时间: 2004-07-22

it's very good

作者: oyalu 发布时间: 2004-09-01

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

作者: zz5151353 发布时间: 2004-10-08

very good

作者: zhhlucky 发布时间: 2004-10-26

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

作者: zhhlucky 发布时间: 2004-10-26

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

谢谢！

作者: zhhlucky 发布时间: 2004-10-26

正需要呢，谢谢

作者: luzy 发布时间: 2004-12-23

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

作者: fana 发布时间: 2004-12-24

太好了,谢谢!

作者: smliao 发布时间: 2004-12-26

真是不错啊。感觉能在这里学到很多的东东。谢谢。

作者: esunshinea 发布时间: 2005-04-03

it's very good app

作者: xxop 发布时间: 2005-04-19

不知道怎么用呢！

作者: boraid 发布时间: 2005-04-26

衷心对各位大虾的无私奉献表示感谢.

作者: dabing1894 发布时间: 2005-04-28

同事刚告诉我可以直接导到EXCEL的！

作者: boraid 发布时间: 2005-04-28

我来试验一下，看看有没有新的感悟哦。

作者: lgcmeli 发布时间: 2005-05-18

好东西，支持下。
如果我想获得更多的栏位，需要增加哪些对象呢
如：你的那个可以得到下图的“电子邮件”和“显示为”两栏，我还想得到“表示为”一栏的数据怎么得到？

版本：outlook 2003

作者: synpo 发布时间: 2009-12-24

我试了一下，有报错，和楼上几个朋友遇到的问题一样，楼主能不能帮忙解释一下？

作者: wusuowei9517 发布时间: 2009-12-24

使用过，没有问题的呢。
如果出错的话你下载楼主的附件试试

作者: synpo 发布时间: 2009-12-24

我下载了楼主的附件，进行了运行，结果提示
Set myAddressList = myNameSpace.AddressLists("联系人")
找不到对象

作者: wusuowei9517 发布时间: 2009-12-25

ok了，我明白了，已经解决了~

但是，如果，我想要更多的信息呢？比如说联系人所在的公司，或者是联系人的电话，要怎么写代码呢？

[ 本帖最后由 wusuowei9517 于 2009-12-25 10:13 编辑 ]

作者: wusuowei9517 发布时间: 2009-12-25

谢谢，正需要啊

作者: jilizhu 发布时间: 2010-06-17

不错的东西！

作者: dell1400 发布时间: 2010-06-26

好复杂啊 it is very intricacy

作者: taurenqq 发布时间: 2010-08-23

正需要的赞美楼主！顺便问句能整个批量导入到通讯录的么那就更好了

作者: sy790825 发布时间: 2011-01-04

相关阅读更多

热门阅读

office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐附激活工具
阅读：74
如何安装mysql8.0
阅读：31
Word快速设置标题样式步骤详解
阅读：28
20+道必知必会的Vue面试题（附答案解析）
阅读：37
HTML如何制作表单
阅读：22
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
ET文件格式和XLS格式文件之间如何转化？
阅读：24
react和vue的区别及优缺点是什么
阅读：121
支付宝人脸识别如何关闭?
阅读：21
腾讯微云怎么修改照片或视频备份路径?
阅读：28

热门下载

更多