Outlook? Вызов процедуры при получения нового письма

Добрый день, помогите пожалуйста.Хочу чтобы в Outlooke при каждом новом письме вызывалась определенныя проседура, когорая обрабатывает письмо. Как это сделать? Поискал на форумах, нашел что-то враде этого
Public WithEvents myOlApp As Outlook.Application
Sub Initialize_handler()
 Set myOlApp = CreateObject("Outlook.Application")
End Sub
Private Sub myOlApp_NewMail()
 Dim myExplorers As Outlook.Explorers
 Dim myFolder As Outlook.MAPIFolder
 Dim x As Integer
 Set myExplorers = myOlApp.Explorers
 Set myFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 If myExplorers.Count <> <b>0</b> Then
 
 End If
 On Error GoTo <b>0</b>
 myFolder.Display
End Sub
но в myOlApp_NewMail() не хочет заходить
1 ответ

Vieri, стучи в асю помогу - 378778778