» Форум — ExchangeRUS — сайт о Microsoft Exchange Server и электронной почте

Получить информацию из «Глобальный список адресов» (VBA)

Page: 1

User

Post

14:24
Сентябрь 23, 2010

KOHCEPBATOP

New Member

posts 2

Post edited 10:25 – Сентябрь 23, 2010 by KOHCEPBATOP

Задача: Получить информацию из «Глобальный список адресов».

Порывшись в инете, получилось так:

Dim OutlookApp As Outlook.Application

Dim Contact As Outlook.ContactItem

Dim oFolder As Object

Dim oEntry As AddressEntry

Set OutlookApp = New Outlook.Application

Set oFolder = GetNamespace("MAPI").AddressLists("Глобальный список адресов")

For Each oEntry In oFolder.AddressEntries

oEntry.Details (0)

Next oEntry

oEntry.Details(0) выдает нужную информацию, но на экран, а мне нужно сохранить ее в файл.

Как для oEntry.Type = «EX» получить дополнительную (Folders) информацию?

Outlook® 2003 (11.8325.8324) SP3

14:27
Сентябрь 23, 2010

Pavel Nagaev

Novorossiysk

Admin

posts 1617

Какая цель преследуется?

Всего хорошего.

15:13
Сентябрь 23, 2010

KOHCEPBATOP

New Member

posts 2

Загнать список в Excel как справочник (возможность фильтрации, поиск по любому полю…).

15:16
Сентябрь 23, 2010

Pavel Nagaev

Novorossiysk

Admin

posts 1617

Эту информацию нужно брать из AD

Для E2003 утилиты

Для E2007/2010 powershell

Через Outlook это сделать намного сложнее, плюс доступ ко всем полям не получите.

Всего хорошего.

09:53
Октябрь 6, 2010

triojohn

Guest

> Для E2007/2010 powershell
А каким это образом можно сделать? насколько успел посмотреть решение тут не совсем очевидное.

09:47
Октябрь 7, 2010

Pavel Nagaev

Novorossiysk

Admin

posts 1617

надо читать про powershell

Всего хорошего.

Page: 1

	Current User: Guest
	Please consider registering