Outlook VBA でOpenイベントを発生させるには？ (ID:117281)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

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