全部显示

ReplyAll 事件

       

当用户为 Outlook 项目选择答复所有人动作时发生。

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