Событие MailItem.CustomAction (Outlook)

  • Статья

Происходит при выполнении настраиваемого действия элемента (который является экземпляром родительского объекта).

Синтаксис

выражение. CustomAction( _Action_ , _Response_ , _Cancel_ )

Выражение Переменная, представляющая объект MailItem .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Действие Обязательный Object Объект Action .
Отклик Обязательный Object Только что созданный элемент, полученный в результате пользовательского действия.
Отмена Обязательный Boolean (Не используется в VBScript). Значение false при возникновении события. Если процедура события задает этому аргументу значение True, настраиваемое действие не завершено.

Замечания

Объект Action и только что созданный элемент, полученный в результате пользовательского действия, передаются в событие.

В Microsoft Visual Basic Scripting Edition (VBScript) если для возвращаемого значения этой функции задано значение False, операция пользовательского действия не будет завершена.

Пример

В этом примере Visual Basic для приложений (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

См. также

Объект MailItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.