急！！！ 请进来帮忙看看啊。。。

yyl

您好,我想把outlook里面的通讯簿所有资料都导出来,但是我只能导出三个模块(name , address,type)其他的都会发生错误,现附上附件,麻烦您一分钟帮我看看!!在此先谢谢了! 3NXvLk39.rar (7.08 KB, 下载次数: 15)

2004-10-29 11:06 上传

点击文件名下载附件
急！！！ 请进来帮忙看看啊。。。

DC.Direct

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 .Cells(i, 3) = myaddressentries(i).Type .Cells(i, 4) = myaddressentries(i).Office .Cells(i, 5) = myaddressentries(i).business .Cells(i, 6) = myaddressentries(i).alias End With Next

End Sub

为什么不用它本身的导入导出工具？