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.
Die Auflistung von Attachment-Objekten , die alle Anlagen einer zusammengeführten E-Mail-Nachricht darstellt.
Hinweise
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.
Um alle Anlagen der zusammengeführten E-Mail zu entfernen und dadurch die Attachments-Auflistung zu leeren, verwenden Sie die ClearAll-Methode .
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.