Événement MailItem.CustomAction (Outlook)

  • Article

Survient lors de l'exécution d'une action personnalisée d'un élément (ce dernier étant une instance de l'objet parent).

Syntaxe

expression. CustomAction( _Action_ , _Response_ , _Cancel_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom Requis/Facultatif Type de données Description
Action Obligatoire Object Objet Action .
Réponse Obligatoire Object Nouvel élément résultant de l'action personnalisée.
Cancel Obligatoire Boolean (Non utilisé dans VBScript). False lorsque l'événement se produit. Si la procédure événementielle affecte à cet argument la valeur True, l'action personnalisée n'est pas achevée.

Remarques

L'objet Action et le nouvel élément résultant de l'action personnalisée sont transmis à cet événement.

Dans Microsoft Visual Basic Scripting Edition (VBScript), si vous définissez la valeur renvoyée de cette fonction sur False, l'opération d'action personnalisée n'est pas achevée.

Exemple

Cet exemple Visual Basic pour Applications (VBA) utilise l’événement CustomAction pour définir la propriété Subject sur l’élément de réponse. Exécutez la AddAction procédure avant d’exécuter pour Initialize_Handler créer un élément avec un événement personnalisé appelé « 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

Voir aussi

Objet MailItem

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.