如何使用代码从 Outlook 中的通讯组列表中导出所有姓名和电子邮件地址?我可以访问 Outlook 2000 或 Outlook 2007 客户端。理想情况下,我希望代码在 C# 中。
BrianLy
问问题
3712 次
2 回答
1
我知道您询问了 c#,但来自 http://www.microsoft.com/technet/scriptcenter/resources/officetips/may05/tips0524.mspx的以下脚本可能有一些用处。
Const olFolderContacts = 10
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
intCount = colContacts.Count
For i = 1 To intCount
If TypeName(colContacts.Item(i)) = "DistListItem" Then
Set objDistList = colContacts.Item(i)
Wscript.Echo objDistList.DLName
For j = 1 To objDistList.MemberCount
Wscript.Echo objDistList.GetMember(j).Name & " -- " & _
objDistList.GetMember(j).Address
Next
Wscript.Echo
End If
Next
于 2008-11-18T15:20:40.463 回答
-1
于 2008-11-18T14:30:32.933 回答