Anlagenobjekt (Herausgeber)

Stellt eine Anlage einer Seriendruck-E-Mail-Nachricht dar.

Hinweise

Ein Anlagenobjekt entspricht einer der Anlagen in der Liste der Anlagen im Feld Anlagen im Dialogfeld "Seriendruck an E-Mail" in der Microsoft Publisher-Benutzeroberfläche. (Zeigen Sie im Menü "Datei" auf "E-Mail senden", wählen Sie "E-Mail-Seriendruck senden" aus, und wählen Sie dann "Optionen" aus.)

Um den Anhang aus der zusammengeführten E-Mail zu entfernen, verwenden Sie die Delete-Methode des Attachment-Objekts .

Beispiel

Das folgende Microsoft Visual Basic for Applications (VBA)-Makro zeigt, wie Sie die Add-Methode verwenden, um einer Seriendrucknachricht eine Anlage hinzuzufügen. Es fügt ein Attachment-Objekt , das ein Bitmapbild darstellt, zur Attachments-Auflistung des aktiven Dokuments hinzu.

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

Beachten Sie, dass Sie zum Senden einer Seriendrucknachricht eine Verbindung mit einer Datenquelle herstellen, den Seriendruck erstellen und dann die Nachricht senden müssen. Weitere Informationen finden Sie unter dem EmailMergeEnvelope-Objekt .

Public Sub Attachment_Example() 
 
 Dim pubAttachments As Publisher.Attachments 
 Dim pubAttachment 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 = pubAttachments.Add("C:\image.bmp ") 
 
End Sub

Methoden

• Delete

Eigenschaften

• Name

Siehe auch

• Referenz zum Publisher-Objektmodell

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.