Question

有没有办法通过脚本从Outlook分发列表中提取电子邮件地址？我正在寻找一种从分发列表中提取所有电子邮件地址并将其输出到CSV文件的方法。

Answer 1

如果您的意思是通过Exchange服务器，请通过某个MS技术页面找到ADSI或LDAP的解决方案。

如果您的意思是通过Outlook联系人，请使用Win32 :: OLE进入MAPI，然后循环浏览联系人。

Answer 2

我不确切知道如何获取通讯组列表，但如果您想使用vbscript，此链接应该可以帮助您入门：Programming examples for referencing items and folders in Outlook 2000

或者，如果您想从Exchange而不是Outlook获取通讯组列表，您可以使用EWS：HOWTO: EWS: Consume Exchange Web Service from VBScript

Answer 3

VBScript中的一些注释：

Dim olApp ''Outlook.Application
Dim olMapi ''Outlook.NameSpace
Dim olFolder ''Outlook.MAPIFolder
Dim olItems ''Outlook.Items

olFolderContacts = 10

Set olApp = CreateObject("Outlook.Application")
Set olMapi = olApp.GetNamespace("MAPI")
Set olFolder = olMapi.GetDefaultFolder(olFolderContacts)
Set olItems = olFolder.Items

For i = 1 To olItems.Count
s = s & olItems(i).FullName & Chr(09) & olItems(i).Email1Address
Next 

MsgBox s
End Function

以下是联系人字段列表：http://support.microsoft.com/kb/313802

有没有办法从Outlook分发列表中提取电子邮件地址？

3 个答案: