Vbscript 有没有办法从Outlook通讯组列表中提取电子邮件地址？

有没有办法通过脚本从Outlook通讯组列表中提取电子邮件地址？我正在寻找一种方法来提取所有的电子邮件地址从通讯组列表，并输出到一个CSV文件

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

---

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

我不知道如何获取通讯组列表，但如果您想使用vbscript，此链接应该可以帮助您入门：

---

或者，如果您想从Exchange而不是Outlook获取通讯组列表，您可以使用EWS:

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

---

以下是联系人字段列表：

如果有帮助，您可以通过脚本访问Outlook应用程序，从而访问Outlook文件夹。您有使用Win32:OLE的示例吗？以下是谷歌搜索中的示例：