Evento MailItem.CustomAction (Outlook)

Ocorre quando uma ação personalizada de um item (que é uma instância do objeto pai) é executada.

Sintaxe

expression. CustomAction( _Action_ , _Response_ , _Cancel_ )

expressão Uma variável que representa um objeto MailItem.

Parâmetros

Comentários

O objeto Action e o item recém-criado resultante da ação personalizada são passados para o evento.

No Microsoft Visual Basic Scripting Edition (VBScript), se você definir o valor de retorno dessa função como False, a operação da ação personalizada não será concluída.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa o evento CustomAction para definir a propriedade Subject no item de resposta. Execute o procedimento AddAction antes de executá-lo a Initialize_Handler para criar um item com um evento personalizado chamado '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

Confira também

Objeto MailItem

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.