É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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour