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

taku 2004-10-30 02:33:32 No: 117281

受信トレイのメールを開いた時にイベントを発生させたいのですが
下記のやり方でやると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