Événement MailItem.BeforeAttachmentSave (Outlook)

  • Article

Survient juste avant l'enregistrement d'une pièce jointe.

Syntaxe

expression. BeforeAttachmentSave( _Attachment_ , _Cancel_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom Requis/Facultatif Type de données Description
Attachment Requis Attachement Objet Attachment à enregistrer.
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 et la pièce jointe n'est pas modifiée.

Remarques

Cet événement correspond au moment de l'enregistrement de pièces jointes dans la banque d'informations. L'événement BeforeAttachmentSave se produit juste avant l'enregistrement d'une pièce jointe lors de l'enregistrement d'un élément. Si un utilisateur modifie une pièce jointe, puis enregistre ces modifications, l’événement BeforeAttachmentSave ne se produit pas à ce moment-là . au lieu de cela, elle se produit lorsque l’élément lui-même est enregistré ultérieurement. Il ne se produit pas non plus lors de l'enregistrement de la pièce jointe sur le disque dur à l'aide de la méthode SaveAsFile.

Dans VBScript, si vous définissez la valeur renvoyée de cette fonction sur False, l'opération d'enregistrement est annulée et la pièce jointe n'est pas modifiée.

Exemple

Cet exemple Visual Basic pour Applications (VBA) montre comment avertir l’utilisateur qu’il n’est pas autorisé à enregistrer la pièce jointe. L’argument Cancel est défini sur True pour annuler l’opération d’enregistrement. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la TestAttachSave() procédure doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook.

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub myItem_BeforeAttachmentSave(ByVal myAttachment As Attachment, Cancel As Boolean) 
 MsgBox "You are not allowed to save " & myAttachment.FileName 
 Cancel = True 
End Sub 
 
Public Sub TestAttachSave() 
 Set myItem = Application.ActiveInspector.CurrentItem 
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.