Reply and replyall macro is not working

Bruce Johnson

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
do you also have the app startup code?

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
 

Top