Reply and replyall macro is not working

[Bruce Johnson]

I am trying to setup a macro so that every time I press reply or reply all, it will set the Send Replies to and then an address, but it is not firing at all.
I have it in the ThisOutlookSession and other codes I have here are working. I have the security settings to allow ALL MACROS

I have made the code VERY simple at this point:

' Reply
'//slipstick.me/44b0w
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim z As Integer
z = MsgBox("here")
End Sub

Private Sub oItem_Replyall(ByVal Response As Object, Cancel As Boolean)
Dim z As Integer
z = MsgBox("here RA")
End Sub

Hitting the REPLY or REPLYALL do not fire the macro.
I do have another macro in the ThisOutlookSession that works.

I am using MS outlook 2010, (version 14.7208.5000 (32 bit)

Help!

 

[Diane Poremsky]

do you also have the app startup code?

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bDiscardEvents As Boolean

Private Sub Application_Startup()
   Set oExpl = Application.ActiveExplorer
   bDiscardEvents = False
End Sub
 
Private Sub oExpl_SelectionChange()
   On Error Resume Next
   Set oItem = oExpl.Selection.Item(1)
End Sub