Löschen von Haupt- und Antwortdokumenten

[iukhdh]

Hallo,

in dem Code unter Punkt 3.9 bei der Anleitung "Das Arbeiten mit Haupt- und Antwort-Dokumenten" ist ein Fehler drin. Da muss m.E. noch die rot angemarkte Zeile mit rein.

Sub Postdocumentdelete(Source As Notesuidatabase)
   Dim doc As NotesDocument   
   Dim collection As NotesDocumentCollection
   Set collection = Source.Documents
   
   If collection.Count > 0 Then
      For i = 1 To collection.Count
         Set doc = collection.GetNthDocument(i)
         Call DeleteResponseDocs(doc)
         Call doc.Remove(True)
      Next  'For i = 1 To collection.Count 
   End If  'If collection.Count = 0 Then
End Sub

Ich möchte aber nicht versäumen mich für diese Abhandlung zu bedanken, hilft mir ausserordentlich.

Thomas

[Axel]

Yoo, du hast recht. Ich hab's geändert. Vielen Dank für den Hinweis.


Axel