Outlook) (MailItem.CustomAction 事件
會在執行項目 (父物件的執行個體) 的自訂動作時發生。
語法
expression。 CustomAction( _Action_ , _Response_ , _Cancel_ )
表達 代表 MailItem 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Action | 必要 | Object | Action物件。 |
| 回應 | 必要 | Object | 由自訂動作所產生的新建立項目。 |
| Cancel | 必要 | 布林值 | (VBScript 中未使用)。 False 事件發生時。 如果事件程序將該引數設定為 True，則無法完成自訂動作。 |
註解
Action 物件與自訂動作所產生的新建立項目都會傳遞至此事件。
在 Microsoft Visual Basic Scripting Edition (VBScript) 中，如果您將這個函數的傳回值設為 False，就不會完成自訂動作作業。
範例
這個 Visual Basic for Applications (VBA) 範例會使用 CustomAction 事件來設定回應專案上的 Subject 屬性。 AddAction在執行 之前執行程式， Initialize_Handler 以使用名為 'Link Original' 的自訂事件建立專案。
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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。