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