Trigger macro to run when selected email is opened

[djGrizzly]

Hello, I am having trouble with my events in outlook, not sure if I am missing something or not.

I am trying to trigger a macro when the selected mail item in outlook is opened.

Using the code below, I can successfully trap the event and display the msgbox when double clicking the first item in my inbox.

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
     Set myItem = Application.Session.GetDefaultFolder(olFolderInbox).Items(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "opened an item" 
 
End Sub

However I am wanting to be able to display the msgbox for any email that is double clicked.

I am trying to use the code below, but it doesnt seem to work. Every time i double click on the email it is opening the email as normal and not triggering the msgbox.

Any ideas what I need to do different?

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub Application_ItemLoad(ByVal Item As Object)
     Set myItem =Application.ActiveExplorer.Selection.Item(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "opened an item" 
 
End Sub

Thank you for your help.

 

[djGrizzly]

Anyone have a guess on this one by chance?

 

[Diane Poremsky]

Try using

Sub Initialize_handler()

instead of

Private Sub Application_ItemLoad(ByVal Item As Object)

Does it consistency work on the first one? I think the dialog came up 1 in 10 opens.

 

[djGrizzly]

When I use the first code so that it only works for the first item in my inbox, It is working consistently every time that i double click on the first email.

Also, I am assuming that you mean to write it such as this....

Option Explicit 
 
Public WithEvents myItem As Outlook.MailItem 
 
Sub Initialize_Handler()
     Set myItem = Application.ActiveExplorer.Selection.Item(1) 
 
End Sub 
 
Private Sub myItem_Open(Cancel As Boolean)
     Cancel = True
     MsgBox "Opening a MailItem" 
 
End Sub

This however does not seem to do anything when I am opening emails.