I think, that it very useful script, that allow to delete document collection
with there responses and responses on responses.
Sub RmvDocAndResp(dc As NotesDocumentCollection)
' Created by Voronov Igor,Vladivostok, Rus, 2000
Dim dcR As notesDocumentCollection
Dim docR As notesDocument
Set docR = dc.Getfirstdocument
Set dcR = docR.responses
If dcR.count > 0 Then
Call RmvDocAndResp (dcR)
Set docR = dc.GetNextdocument(docR)
Loop Until docR Is Nothing
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.