Événement MailItem.Write (Outlook)
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
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.