Événement MailItem.CustomAction (Outlook)
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
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.