Sub object_ReplyAll(ByVal Response As Object, Cancel As Boolean)
object 该表达式的值为“应用于”列表中的一个对象。
Response 响应原始邮件而发送的新项目。
Cancel 可选。事件发生时为 False。如果事件过程将此参数设置为 True,则不完成答复所有人操作并且不显示新项目。
本 VBScript 示例使用 ReplyAll 事件,并提醒用户过程将答复项目的所有原始收件人,然后根据用户的响应,允许操作继续进行或停止操作。
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