Événement MailItem.Write (Outlook)

Se produit lorsqu’une instance de l’objet parent est enregistrée, soit explicitement (par exemple, en utilisant les méthodes Enregistrer ou Enregistrer sous), soit 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

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 de 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 qu’il remplacera tout élément existant et, selon la réponse de l’utilisateur, permet à l’opération de se poursuivre 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 le Initialize_Handler() sous-programme doit être appelé 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.