Newmail Event doesn't fire

[rombomb]

Hi. I am a beginner.

I have implemented the following code in ThisOutlookSession, Module, & Class and none will fire when a new message is received. FYI: other code works fine.


Dim WithEvents myOlApp As Outlook.Application

Sub Initialize_handler()
MsgBox "stop"
Set myOlApp = CreateObject("Outlook.application")
End Sub

Private Sub myOlApp_NewMail()
MsgBox "stop"
Call SyncSchedule
End Sub