Événement MailItem.Write (Outlook)

  • Article

Se produit lorsqu’une instance de l’objet parent est enregistrée de manière explicite (par exemple, à l’aide des méthodes Save ou SaveAs ) ou implicitement (par exemple, en réponse à une invite lors de la fermeture de l’inspecteur de l’élément).

Syntaxe

expression. Write( _Cancel_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom Requis/Facultatif Type de données Description
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'opération d'enregistrement n'est pas achevée.

Remarques

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

Exemple

Cet exemple Visual Basic pour Applications (VBA) utilise l’événement Write et avertit l’utilisateur que l’élément est sur le point d’être enregistré et remplacera tout élément existant et, en fonction de la réponse de l’utilisateur, autorise l’opération à continuer ou l’arrête. Si cet événement est annulé, Microsoft Outlook affiche un message d’erreur. Par conséquent, vous devez capturer cet événement dans votre code. Ci-dessous figure une méthode pour effectuer cette opération. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la Initialize_Handler() sous-routine doit être appelée avant que la procédure événementielle puisse être appelée par Outlook.

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Private Sub myItem_Write(Cancel As Boolean) 
 
 Dim myResult As Integer 
 
 myItem = "The item is about to be saved. Do you wish to overwrite the existing item?" 
 
 myResult = MsgBox(myItem, vbYesNo, "Save") 
 
 If myResult = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub 
 
 
 
Public Sub Initialize_Handler() 
 
 Const strCancelEvent = "Application-defined or object-defined error" 
 
 
 
 On Error GoTo ErrHandler 
 
 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
 myItem.Save 
 
 Exit Sub 
 
 
 
 ErrHandler: 
 
 MsgBox Err.Description 
 
 If Err.Description = strCancelEvent Then 
 
 MsgBox "The event was cancelled." 
 
 End If 
 
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.