Sub object_Forward(ByVal Forward As Object, Cancel As Boolean)
object 该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Forward 正在转发的新项目。
Cancel 可选(在 VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则不完成转发操作且不显示新项目。
在 VBScript 中,如果将该函数的返回值设置为 False,则不完成转发操作且不显示新项目。
本示例通过将返回值设置为 False,使用 Forward 事件禁止对项目进行转发,并显示一条消息指出不能转发项目。
Function Item_Forward(ByVal myForwardItem)
MsgBox "You may not forward this message!"
Item_Forward = False
End Function