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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für