Edit

Attachments object (Publisher)

  • Article

The collection of Attachment objects that represents all the attachments to a merged email message.

Remarks

The Attachments collection corresponds to the list of attachments in the Attachments box in the Merge to Email dialog box in the Microsoft Publisher user interface (on the File menu, point to Send Email, choose Send Email Merge, and then choose Options).

To add an Attachment object to the Attachments collection and thereby add an attachment to the list of attachments to the merged email that you want to send, use the Add method.

To remove a single attachment from an email merge message, use the Delete method of the specific Attachment object that you want to remove from the Attachments collection.

To remove all the attachments to the merged email and thereby empty the Attachments collection, use the ClearAll method.

The default property of the Attachments collection is the Item property.

Example

The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the Add method to add an attachment to an email merge message. The macro adds an Attachment object that represents a bitmap image to the Attachments collection of the active document. It also iterates through the Attachments collection and prints the name of each attachment in the Immediate window.

Before running this macro, place a file named image.bmp in the root of the C drive on your computer, or change the name and path of the file in the macro to specify the one that you want to attach.

To send an email merge message, you must connect to a data source, create the email merge, and then send the message. For more information, see the EmailMergeEnvelope object.

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

Methods

Properties

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.