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
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.