Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Collection d’objets Attachment qui représente toutes les pièces jointes à un e-mail fusionné.
Remarques
La collection Attachments correspond à la liste des pièces jointes dans la zone Pièces jointes de la boîte de dialogue Fusionner vers Email de l’interface utilisateur de Microsoft Publisher (dans le menu Fichier, pointez sur Envoyer Email, choisissez Envoyer Email Fusionner, puis choisissez Options).
Pour ajouter un objet Attachment à la collection Attachments et ainsi ajouter une pièce jointe à la liste des pièces jointes à l’e-mail fusionné que vous souhaitez envoyer, utilisez la méthode Add .
Pour supprimer une seule pièce jointe d’un message de fusion, utilisez la méthode Delete de l’objet Attachment spécifique que vous souhaitez supprimer de la collection Attachments .
Pour supprimer toutes les pièces jointes de l’e-mail fusionné et ainsi vider la collection Attachments , utilisez la méthode ClearAll .
La propriété par défaut de la collection de pièces jointes est la propriété de l'élément.
Exemple
La macro Microsoft Visual Basic pour Applications (VBA) suivante montre comment utiliser la méthode Add pour ajouter une pièce jointe à un message de fusion. La macro ajoute un Objet Attachment qui représente une image bitmap à la collection de pièces jointes du document actif. Aussi, il parcourt la collection de pièces jointes et imprime le nom de chaque pièce jointe dans la fenêtre exécution.
Avant d’exécuter cette macro, placez un fichier nommé image.bmp à la racine du lecteur C sur votre ordinateur, ou modifiez le nom et le chemin d’accès du fichier dans la macro pour spécifier celui que vous souhaitez joindre.
Pour envoyer un message de fusion, vous devez vous connecter à une source de données, créer le publipostage, puis envoyer le message. Pour plus d’informations, consultez l’objet EmailMergeEnvelope .
Public Sub Attachments_Example()
Dim pubAttachments As Publisher.Attachments
Dim pubAttachment As Publisher.Attachment
Dim pubAttachment_Added As Publisher.Attachment
Dim pubMailMerge As Publisher.MailMerge
Dim pubEmailMergeEnvelope As Publisher.EmailMergeEnvelope
Set pubMailMerge = ThisDocument.MailMerge
Set pubEmailMergeEnvelope = pubMailMerge.EmailMergeEnvelope
Set pubAttachments = pubEmailMergeEnvelope.Attachments
Set pubAttachment_Added = pubAttachments.Add("C:\image.bmp ")
For Each pubAttachment In pubAttachments
Debug.Print pubAttachment.Name
Next
End Sub
Méthodes
Propriétés
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.