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
Do
Set dcR = docR.responses
If dcR.count > 0 Then
Call RmvDocAndResp (dcR)
Else
Call dc.RemoveAll(True)
End If
Set docR = dc.GetNextdocument(docR)
Loop Until docR Is Nothing
End Sub

This was first published in November 2000

Dig Deeper

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com'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 ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close