代码之家 › 专栏 › 技术社区 › Brian Lyttle

Outlook/Exchange-如何以编程方式导出通讯组列表中的用户?

office-automation exchange-server outlook email c#

2

Brian Lyttle · 技术社区 · 16 年前

如何使用代码从outlook中的通讯组列表导出所有姓名和电子邮件地址?我可以访问outlook 2000或outlook 2007客户端。理想情况下,我希望代码是C。

2 回复 | 直到 16 年前

1

Fionnuala 16 年前

我知道你问过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

2

-1

Mladen Prajdic 16 年前

使用outlook组件模型 http://www.dotnetjunkies.ddj.com/Tutorial/2E1EEEAF-C78A-4A38-A830-AC204B12DF83.dcik