Best Practices > Diskussionen zu Best Practices

Löschen von Haupt- und Antwortdokumenten

(1/1)

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.


--- Zitat ---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
--- Ende Zitat ---

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

Navigation

[0] Themen-Index