Есть ли способ извлечь адрес электронной почты из списка рассылки Outlook?

Question

Есть ли способ извлечь адрес электронной почты из списка рассылки Outlook с помощью сценария? Я ищу способ извлечь все адреса электронной почты из списка рассылки и вывести его в файл CSV.

Answer 1

Если вы имеете в виду через сервер Exchange, найдите решение с помощью ADSI или LDAP через некоторую техническую страницу MS.

Если вы имеете в виду через контакты Outlook, используйте Win32 :: OLE, чтобы войти в MAPI, а затем переберите контакты.

Answer 2

Несколько заметок в 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

Answer 3

Я не знаю точно, как получить списки рассылки, но эти ссылки должны помочь вам начать работу, если вы хотите использовать vbscript: Примеры программирования для ссылок на элементы и папки в Outlook 2000

Или если вы хотите получать списки рассылки из Exchange, а не из Outlook, вы можете использовать EWS: HOWTO: EWS: использовать веб-службу Exchange из VBScript