Attachments.Add-Methode (Publisher)
Fügt der Attachments-Auflistung einer Microsoft Publisher-Publikation ein Attachment-Objekt hinzu.
Syntax
Ausdruck. Hinzufügen (FileName)
Ausdruck Eine Variable, die ein Attachments-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
FileName | Erforderlich | String | Dateiname der Anlage |
Rückgabewert
Attachment
Beispiel
Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Sie der Nachricht in einem Seriendruck eine Anlage hinzufügen. Der Code fügt einer E-Mail-Nachricht eine Anlage hinzu und gibt dann die Anzahl der aktuellen Anlagen an die Nachricht im Direktfenster aus.
Die Anlage in diesem Beispiel ist eine Bilddatei im Stammverzeichnis des Laufwerks C:. Ersetzen Sie vor dem Ausführen des Codes "C:\image.jpg" durch den Pfad zu und den Namen der Datei auf Ihrem Computer, die Sie als E-Mail-Anlage hinzufügen möchten.
Bevor Sie einen Seriendruck erstellen können, müssen Sie die OpenDataSource-Methode des MailMerge-Objekts verwenden, um das aktive Dokument mit einer Datenquelle zu verbinden. Führen Sie den Seriendruck mit der Execute -Methode des MailMerge -Objekts.
Ein Beispiel für das Herstellen einer Verbindung mit einer Datenquelle und das Erstellen eines E-Mail-Seriendrucks finden Sie im EmailMergeEnvelope-Objekt .
Public Sub Add_Example()
Dim pubAttachment As Publisher.Attachment
Set pubAttachment = ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Add("C:\image.jpg")
Debug.Print ThisDocument.MailMerge.EmailMergeEnvelope.Attachments.Count
End Sub
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.