Événement MailItem.AttachmentRead (Outlook)

Survient lors de l’ouverture d’une pièce jointe à lire dans une instance de l’objet parent.

Syntaxe

expression. AttachmentRead( _Attachment_ )

expression Variable qui représente un objet MailItem.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Attachment	Requis	Attachement	Objet Attachment qui a été ouvert.

Exemple

Cet exemple de Visual Basic pour Applications (VBA) affiche un message lorsque l’utilisateur tente de lire une pièce jointe. L’exemple de code doit être placé dans un module de classe tel que ThisOutlookSession, et la TestAttachRead() procédure doit être appelée avant que la procédure événementielle puisse être appelée par Microsoft Outlook. Pour l’exécution de cet exemple, la boîte de réception doit au moins comporter un élément tel que « Test » ainsi qu’une pièce jointe au minimum.

Public WithEvents myItem As outlook.MailItem 
 
 
 
Private Sub myItem_AttachmentRead(ByVal myAttachment As Outlook.Attachment) 
 
 If myAttachment.Type = olByValue Then 
 
 MsgBox "If you change this file, also save your changes to the original file." 
 
 End If 
 
End Sub 
 
 
 
Public Sub TestAttachRead() 
 
 Dim atts As Outlook.Attachments 
 
 Dim myAttachment As Outlook.Attachment 
 
 
 
 Set myItem = Application.ActiveExplorer.CurrentFolder.Items("Test") 
 
 Set atts = myItem.Attachments 
 
 myItem.Display 
 
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.