Partager via

Joindre un fichier à un élément de courrier

  • Article

Cette rubrique présente la procédure qui permet de joindre une feuille de calcul à un courrier électronique. La procédure, AddAttachment, suppose que la feuille de calcul spécifiée, Q496.xlsx, existe dans le chemin d’accès spécifié, D:\Documents. AddAttachment crée un message électronique, joint Q496.xlsx au message électronique, attribue à la pièce jointe une légende descriptive et affiche le message électronique avec cette pièce jointe.

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "D:\Documents\Q496.xlsx", _ 
 olByValue, 1, "4th Quarter 1996 Results Chart" 
 myItem.Display 
End Sub

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.