Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.