Outlook - Cancel Reply (2003)

[richardbarrett]

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?

Thanks,
Richard Barrett

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
End If
End Sub

[HansV]

Take a look at Microsoft Outlook: ReplyAll event in Outlook2000 and Reply/Replyall/Forward Events.

[richardbarrett]

Thank you. I had located the first one, but not the second, and it's very helpful. It gives me a headache, but I see if I can figure it out. Outlook is simply not my area of expertise, and I'm still learning.

Richard