Événement Application.ItemSend (Outlook)
Se produit chaque fois qu’un élément Microsoft Outlook est envoyé par l’utilisateur via un inspector (avant la fermeture de l’inspecteur, mais après que l’utilisateur a cliqué sur le bouton Envoyer ) ou lorsque la méthode Send pour un élément Outlook, tel que MailItem, est utilisée dans un programme.
Syntaxe
expression. ItemSend( _Item_ , _Cancel_ )
expression Variable qui représente un objet « Application ».
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| Item | Obligatoire | Object | Élément envoyé. |
| Cancel | Obligatoire | Booléen | False lorsque l'événement survient. Si la procédure événementielle affecte à cet argument la valeur True, l’action d’envoi ne se termine pas et l’inspecteur reste ouvert. |
Remarques
Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).
Exemple
L’exemple Microsoft Visual Basic pour Applications (VBA) suivant montre comment annuler l’événement ItemSend en réponse à une entrée utilisateur. L’exemple de code doit être placé dans un module de classe comme Initialize_handler et la procédure doit être appelée avant que la procédure événementielle puisse être appelée par Outlook.
Public WithEvents myOlApp As Outlook.Application
Public Sub Initialize_handler()
Set myOlApp = Outlook.Application
End Sub
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim prompt As String
prompt = "Are you sure you want to send " & Item.Subject & "?"
If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then
Cancel = True
End If
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.