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
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Action | Obrigatório | Objeto | O objeto Action. |
| Response | Obrigatório | Objeto | O item recém-criado resultante da ação personalizada. |
| Cancel | Obrigatório | Boolean | (Não utilizado no VBScript). False quando o evento ocorre. Se o procedimento de evento define este argumento como True, a ação personalizada não será concluída. |
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
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.