É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

Objet Application

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.