There's a useful piece of code on the MS website which traps the ReplyAll event and displays a warning asking if the user really wants to Reply to All. If answer is No, then Cancel = True, and the draft (reply) message does not open. That's just what I want.
But this does not trap the situation where the user is viewing the Inbox Explorer and chooses Reply to All for the currently selected message. (If multiple items are selected, the Reply buttons are disabled.) There doesn't seem to be a ReplyAll event associated with an Explorer, and anything I try to rig up doesn't offer Cancel as a way of opting out.
Any suggestions on how to get the functionality of the code below with Reply to All from an Explorer?
Set myItem = Application.ActiveInspector.CurrentItem
Private Sub myItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
Dim mymsg As String
Dim myResult As Integer
mymsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(mymsg, vbYesNo, "Flame Protector")
If myResult = vbNo Then
Cancel = True