当 Outlook 项目的自定义动作执行时发生。Action 对象和由自定义动作新建的项目都传递给事件。
Sub object_CustomAction(ByVal Action As Object, ByVal Response As Object, Cancel As Boolean)
object 该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Action 必选。Action 对象。
Response 必选。由自定义动作新建的项目。
Cancel 可选(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则不完成自定义动作。
在 VBScript 中,如果将该函数的返回值设置为 False,则不完成自定义动作。
本示例使用 CustomAction 事件设置响应项目的属性。
Function Item_CustomAction(ByVal myAction, ByVal myResponse)
Select Case myAction.Name
Case "Action1"
myResponse.Subject = "Changed by VB Script"
Case Else
End Select
End Function