Evento MailItem.CustomAction (Outlook)

Se produce cuando se ejecuta una acción personalizada de un elemento (que es una instancia del objeto primario).

Sintaxis

expresión. CustomAction( _Action_ , _Response_ , _Cancel_ )

expresión Variable que representa un objeto MailItem.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Action	Obligatorio	Object	Objeto Action.
Response	Obligatorio	Object	Elemento recién creado como resultado de la acción personalizada.
Cancel	Obligatorio	Boolean	(No se utiliza en VBScript). False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la acción personalizada no se completa.

Comentarios

El objeto Action y el elemento recién creado resultante de la acción personalizada se pasan al evento.

En Microsoft Visual Basic Scripting Edition (VBScript), si establece el valor devuelto por esta función en False, la acción personalizada no se completa.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el evento CustomAction para establecer la propiedad Subject en el elemento de respuesta. Ejecutar el procedimiento de AddAction antes de ejecutar el Initialize_Handler para crear un elemento con un evento personalizado denominado "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

Consulte también

Objeto MailItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.