Лабораторная работа 1.1 Настройка подключения к почтовому ящику Exchange Server

Предоставление разрешений на почтовые ящики Exchange Server, параметр ShowSecurityPage, подключение к почтовому ящику Exchange Server средствами ADO, Exchange OLE DB Provider, ExOLEDB.DataSource, строка подключения file://./backofficestorage/

Задание:

1. Предоставьте вашей учетной записи полные права на все почтовые ящики Exchange Server в вашей организации.

2. Создайте новый файл Excel с именем Обработка почтовых ящиков.xls и напишите в нем программный код для открытия соединения с почтовым ящиком с псевдонимом Admin. Этот прогрfммный код должен быть помещен в процедуру MailboxProcessing().

3. Измените код процедуры, реализовав обработку ошибок, которые могут возникнуть при подключении. В случае возникновения ошибки должно выводится окно сообщения с номером ошибки и описанием, которое пришло с Exchange Server (см. рис. 1)

Рис. 1. Вид окна с информацией об ошибке

            В случае возникновения ошибки после вывода окна сообщения выполнение процедуры должно прерваться.

Решение:

К пункту 1 — предоставление разрешений на почтовые ящики Exchange Server в вашей организации:

1. Откройте редактор реестра (команда regedit в командной строке) и раскройте ветвь ресстра HKEY_CURRENT_USER\Software\Microsoft\Exchange\ExAdmin

2. В этой ветви реестра создайте параметр ShowSecurityPage с типом данных REG_DWORD и присвойте ему значение 1.

3. Закройте редактор реестра и откройте Exchange System Manager.

4. Щелкните правой кнопкой мыши по контейнеру организации в Exchange System Manager (контейнер самого верхнего уровня, который называется First Organization (Exchange) и в контекстном меню выберите Delegate Control. На первом экране мастера делегирования административных полномочий нажмите Next.

5. На экране Users or Groups мастера делегирования административных полномочий нажмите на кнопку Add, при помощи Browse выберите свою учетную запись и предоставьте ей право Exchange Full Administrator. Нажмите на кнопку Далее, а затем — Готово.

6. Щелкните еще раз правой кнопкой мыши по контейнеру организации и в контекстном меню выберите свойства. Перейдите на вкладку Security и нажмите н кнопку Дополнительно. В списке Элементы разрешений удалите все элементы типа Запретить (см. рис. 1)

Рис. 1.

7. Нажмите на кнопку OK, чтобы закрыть окно свойств организации с сохранением внесенных изменений.

К пункту 2 — написание процедуры для открытия почтового ящика пользователя:

Код процедуры MailboxProcessing() без обработчика ошибок может быть таким (небходима ссылка на библиотеку Microsoft ActiveX Data Objects версии не ниже 2.5):

Dim cn As New ADODB.Connection

cn.Provider = "ExOLEDB.DataSource"

cn.ConnectionString = _

"file://./backofficestorage/nwtraders1.msft/mbx/Admin"

cn.Open

К пункту 3 — реализация обработки ошибок:

Код процедуры MailboxProcessing() после реализации обработчика ошибок может быть таким:

Sub MailboxProcessing()

Dim cn As New ADODB.Connection

cn.Provider = "ExOLEDB.DataSource"

cn.ConnectionString = _

"file://./backofficestorage/nwtraders1.msft/mbx/Admin1"

On Error GoTo ErrorHandler

cn.Open

On Error GoTo 0

Exit Sub

ErrorHandler:

Dim ADOError As ADODB.Error

For Each ADOError In cn.Errors

    MsgBox ADOError.NativeError & vbCrLf & ADOError.Description

Next

End Sub

Получить учебные материалы по этому курсу