Mein Problem war, dass nach dem Löschen eines Hauptdokumentes die Antwort-Dokumente immer noch, unzugeordnet & verwaist, zu sehen war.
Auf www.lotus.comhabe ich den folgenden Code dazu gefunden, der versprach genau das zu tun, was ich wollte:
Code
Dim s As New notessession
Dim b As notesdatabase
Dim c As notesdocumentcollection, k As notesdocumentcollection
Dim d As notesdocument, t As notesdocument
Const families = "!@IsResponseDoc | @AllDescendants"
Const onlykids = "@IsResponsedoc"
Set b = s.currentdatabase
Set c = b.search( families, Nothing, 0 )
Set k = b.search( onlykids, Nothing, 0 )
Set d = k.getfirstdocument
While Not d Is Nothing
Set t = k.getnextdocument(d)
If Not c.getdocument(d) Is Nothing Then
k.deletedocument d
End If
Set d = t
Wend
k.removeall True
Alles anzeigen
Copy & paste in das Datenbank Skript, unter QueryDeleteDocument, ausprobiert & funktioniert. An anderen Sachen weitergebastelt und Stunden später mal wieder ausprobiert: geht nicht mehr. :-/
Nach endlosen Tests scheint es so zu sein, als würde es manchmal funktionieren und manchmal nicht! Ich konnte allerdings kein Schema feststellen.
Vielleicht hat von Euch noch jemand zu so später Stunde eine Idee