Delete Document Collection With There Responses And Responses On Responses.

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)
Call dc.RemoveAll(True)
End If
Set docR = dc.GetNextdocument(docR)
Loop Until docR Is Nothing
End Sub

This was last published in November 2000

Dig Deeper on Domino Resources - Part 3

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • iSeries tutorials's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...