Лабораторная работа 3.2

Организация реакции на события изменения почтовых ящиков

WMI для реакции на события изменения почтовых ящиков Exchange Server, вывод информации об изменившемся почтовом ящике

Задание:

Создайте в файле Обработка почтовых ящиков.xls новую процедуру с именем MailboxEvents(). Эта процедура должна раз в 10 секунд проверять информацию о почтовых ящиках на Exchange Server, и, если почтовый ящик изменился, выводить информацию об псевдониме изменившегося почтового ящика в окно сообщения.

Решение:

Код процедуры MalboxEvents() может быть таким:

Sub MailboxEvents()

Dim oLocator As New WbemScripting.SWbemLocator

Dim oWmiSvc As WbemScripting.SWbemServices

Dim oEventSource As WbemScripting.SWbemEventSource

Dim oMbx As WbemScripting.SWbemObjectEx

Set oWmiSvc = oLocator.ConnectServer("LONDON3", "root/MicrosoftExchangeV2")

Set oEventSource = oWmiSvc.ExecNotificationQuery _

("select * from __InstanceModificationEvent WITHIN 10" & _

"WHERE TargetInstance ISA 'Exchange_mailbox'")

i = 0

Do While i = 0

    Set oMbx = oEventSource.NextEvent

    MailBox oMbx.TargetInstance.Properties_("MailboxDisplayName").Value

Loop

End Sub

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