ReplyAll Event
Occurs when the user selects the ReplyAll action for an Outlook item.
Sub object_ReplyAll(ByVal Response As Object, Cancel As Boolean)
object An expression that evaluates to one of the objects in the Applies To list.
Response The new item being sent in response to the original message.
Cancel Optional. False when the event occurs. If the event procedure sets this argument to True, the reply all operation is not completed and the new item is not displayed.
Example
This VBScript example uses the ReplyAll event and reminds the user that proceeding will reply to all original recipients of an item and, depending on the user's response, either allows the action to continue or stops it.
Function Item_ReplyAll(ByVal myResponse)
myMsg = "Do you really want to reply to all original recipients?"
myResult = MsgBox(myMsg, 289, "Flame Protector")
If myResult = 1 Then
Item_ReplyAll = True
Else
Item_ReplyAll = False
End If
End Function