Deletes All Orphaned Response Documents

Deletes all Orphaned response documents
Sub Initialize
Dim session As New NotesSession
Dim database As New _
NotesDatabase ("",session.CurrentDatabase.FileName)
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Dim dt As Variant
Dim counter As Integer


Set collection = database.AllDocuments
For x = 1 To collection.count
Set doc = collection.GetNthDocument(x)
If doc.Isresponse = True Then

Set parentdoc = database.GetDocumentByUNID _
(doc.ParentDocumentUNID)

On Error Resume Next
If (ParentDoc.Responses Is Nothing) Then
Call doc.remove (True)
Counter = Counter + 1
End If
End If
Next x
Messagebox (Str(Counter) & " Documents were deleted")
End Sub
This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

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