ReplytoAll Warning

  • Thread starter Thread starter sapphire
  • Start date Start date
S

sapphire

I want a warning to display when the "Reply to All" is clicked.

I am adding the following code to "This Outlook Session":

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

However, it does not work. What am I missing?

Thanks for your help.
 
See my response to your post in another group, which I saw before this one.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Back
Top