Attachment.Delete-Methode (Publisher)

Löscht ein Attachment-Objekt aus der Attachments-Auflistung einer Seriendrucknachricht.

Syntax

Ausdruck. Löschen

Ausdruck Eine Variable, die ein Attachment-Objekt darstellt.

Hinweise

Die Delete -Methode führt einen Vorgang nicht rückgängig gemacht werden, auf der Attachments -Auflistung. Er ruft IUnknown.Release für den Verweis auf das Attachment -Objekt der Auflistung. Wenn Sie einen anderen Verweis auf die Anlage verfügen, können Sie weiterhin seine Eigenschaften und Methoden zugreifen, aber Sie können nicht mehr zuzuordnen alle Auflistungen, da die Add -Methode immer ein neues Objekt erstellt. Verwenden Sie das Schlüsselwort Set, um die Verweisvariable auf Nothing oder auf eine andere Anlage festzulegen.

Die endgültige Version von Attachment -Objekt erfolgt, wenn Sie die Referenz-Variable auf Nothing zuweisen oder beim Aufruf zu Löschen, wenn Sie kein anderer Verweis vorhanden war. An dieser Stelle wird das Objekt aus dem Speicher entfernt. Es wird versucht, den Zugriff auf ein freigegebenes Objekt wird der Microsoft Collaboration Data Object-Fehler CdoE_INVALID_OBJECT zurückgegeben.

Wenn Sie ein Element einer Auflistung löschen, wird die Auflistung sofort aktualisiert, d. h., die Count-Eigenschaft wird um 1 reduziert, und die Elemente werden erneut indiziert. Zum Zugreifen auf ein auf das zuvor gelöschte Element in der Auflistung folgendes Element müssen Sie den neuen Indexwert verwenden.

Um alle Anlagen der aktuellen Seriendrucknachricht zu löschen, verwenden Sie die ClearAll-Methode der Attachments-Auflistung .

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic for Applications) zeigt, wie Eine Anlage zu der Nachricht in einem Seriendruck gelöscht wird. Der Code löscht die Anlage an die erste Indexposition in der Attachments -Auflistung und gibt den Namen der gelöschten Anlage und die Anzahl der aktuellen Anlagen der Nachricht in das Direktfenster.

Stellen Sie vor dem Ausführen dieses Codes sicher, dass mindestens eine Anlage zur aktuellen Seriendrucknachricht vorhanden ist.

Public Sub Delete_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(1) 
 Debug.Print pubAttachments.Count 
 Debug.Print pubAttachment.Name 
 
 pubAttachment.Delete 
 
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.