Добрый день
Был написан компонент перехватывающий события получения почты через MS Exchange Server. Данный компонент срабатывает только при добавлений/удалений

регистрационной информации, но не срабатывает на другие события (например - получения почты).
Текст компонента

Implements Exoledb.IExStoreAsyncEvents
Dim fso As FileSystemObject
Dim txt As TextStream

Private Sub Initialize()
Set fso = New FileSystemObject
Set txt = fso.OpenTextFile("c:\log_event.log", ForAppending, True)
End Sub
Private Sub Terminate()
txt.Close
Set txt = Nothing
Set fso = Nothing
End Sub
Private Sub IExStoreAsyncEvents_OnDelete(ByVal pEventInfo As Exoledb.IExStoreEventInfo, ByVal bstrURLItem As String, ByVal lFlags As Long)
Initialize
txt.WriteLine Now() & ":On Delete Registering - lFlags=" & lFlags
Terminate
End Sub
Private Sub IExStoreAsyncEvents_OnSave(ByVal pEventInfo As Exoledb.IExStoreEventInfo, ByVal bstrURLItem As String, ByVal lFlags As Long)
Initialize
txt.WriteLine Now() & ":On Save Registering - lFlags=" & lFlags
Terminate
End Sub


Строка регистрации

cscript regevent.vbs add "onsave;ondelete" pSEvent.cEvent "file://./backofficestorage/<domain_name>/MBX/<user_name>/Inbox"