Freigeben über


Attachments-Objekt (Publisher)

Die Auflistung von Attachment-Objekten , die alle Anlagen einer zusammengeführten E-Mail-Nachricht darstellt.

HinwBemerkungeneise

Die Attachments-Auflistung entspricht der Liste der Anlagen im Feld Anlagen im Dialogfeld In Email zusammenführen auf der Microsoft Publisher-Benutzeroberfläche (zeigen Sie im Menü Datei auf Email senden, wählen Sie Email Zusammenführen senden und dann Optionen aus).

Verwenden Sie die Add-Methode, um der Attachments-Auflistung ein Attachment-Objekt hinzuzufügen und damit eine Anlage zur Liste der Anlagen der zusammengeführten E-Mail hinzuzufügen, die Sie senden möchten.

Um eine einzelne Anlage aus einer Seriendrucknachricht zu entfernen, verwenden Sie die Delete-Methode des spezifischen Attachment-Objekts , das Sie aus der Attachments-Auflistung entfernen möchten.

Verwenden Sie die ClearAll-Methode, um alle Anlagen der zusammengeführten E-Mail zu entfernen und dadurch die Attachments-Auflistung zu leeren.

Die Standardeigenschaft der Attachments -Auflistung ist die Item -Eigenschaft.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie die Add-Methode verwenden, um einer Seriendrucknachricht eine Anlage hinzuzufügen. Das Makro fügt ein Attachment -Objekt, das eine Bitmapgrafik zur Attachments -Auflistung des aktiven Dokuments darstellt. Auch der Attachments -Auflistung durchlaufen, und druckt den Namen aller Anlagen in das Direktfenster.

Bevor Sie dieses Makro ausführen, platzieren Sie eine Datei mit dem Namen image.bmp im Stammverzeichnis des Laufwerks C auf Ihrem Computer, oder ändern Sie den Namen und Pfad der Datei im Makro, um die Datei anzugeben, die Sie anfügen möchten.

Um eine E-Mail-Seriendrucknachricht zu senden, müssen Sie eine Verbindung mit einer Datenquelle herstellen, den Seriendruck erstellen und dann die Nachricht senden. Weitere Informationen finden Sie im EmailMergeEnvelope-Objekt .

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

Methoden

Eigenschaften

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.