Domino Code Fragment

Code Name*
Delete all orphaned response documents		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.149.255.162
Description*
Deletes all Orphaned response documents		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
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