É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
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.