Partager via


Propriété MailItem.Attachments (Outlook)

Renvoie un objet Attachments qui représente toutes les pièces jointes de l’élément spécifié. En lecture seule.

Syntaxe

expression. Attachments

expression Variable qui représente un objetMailItem.

Exemple

Cet exemple Visual Basic pour Applications (VBA) utilise la méthode Attachments.Remove pour supprimer toutes les pièces jointes d’un message électronique transféré avant de l’envoyer à « Dan Wilson ». Pour exécuter cet exemple, remplacez « Dan Wilson » par le nom d’un destinataire valide et gardez un élément comportant des pièces jointes ouvertes dans une fenêtre Inspecteur.

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
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.