通过

MailItem.CustomAction 事件 (Outlook)

  • 项目

当项目（父对象的一个实例）的自定义动作执行时发生。

语法

expression. CustomAction( _Action_ , _Response_ , _Cancel_ )

expression 表示 MailItem 对象的变量。

参数

名称 必需/可选 数据类型 说明
操作 必需 对象 Action 对象。
Response 必需 对象 由自定义动作产生的新建项目。
Cancel 必需 Boolean (不使用在 VBScript 中)。 假 的事件发生时。 如果该事件过程将此参数设置为 True ，则不完成该自定义操作。

备注

Action 对象和由自定义动作产生的新建的项目被传递给事件。

在 Microsoft Visual Basic 脚本版本 (VBScript)，如果您设置此函数的返回值为 False ，则不完成自定义操作操作。

示例

此 Visual Basic for Applications (VBA) 示例使用 CustomAction 事件响应项设置的 主题 属性。 在执行 AddAction来创建自定义事件具有物料称作原始链接之前，请执行 Initialize_Handler过程。

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Sub AddAction() 
 
 Dim myAction As Outlook.Action 
 
 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 Set myAction = myItem.Actions.Add 
 
 myAction.Name = "Link Original" 
 
 myAction.ShowOn = olMenuAndToolbar 
 
 myAction.ReplyStyle = olLinkOriginalItem 
 
 myItem.To = "Dan Wilson" 
 
 myItem.Subject = "Before" 
 
 myItem.Send 
 
End Sub 
 
 
 
Sub Initialize_Handler() 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
End Sub 
 
 
 
Private Sub myItem_CustomAction(ByVal Action As Object, ByVal Response As Object, Cancel As Boolean) 
 
 Select Case Action.Name 
 
 Case "Link Original" 
 
 Response.Subject = "Changed by VB Script" 
 
 Case Else 
 
 End Select 
 
End Sub

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。