Outlook VBA でOpenイベントを発生させるには？

受信トレイのメールを開いた時にイベントを発生させたいのですが
下記のやり方でやると1番目のメールを開いた時にしか発生されません。
どのメールを開いた時にも発生させるには、どのようにすればよいでしょうか？
よろしくお願いします。

Public WithEvents myItem As Outlook.MailItem

Sub Initialize_handler()
    Set myItem = Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
End Sub

Private Sub myItem_Open(Cancel As Boolean)
    myItem.GetInspector.SetCurrentFormPage "All Fields"
End Sub