Count responses

Hi I want to count the number of response document of every main document through lotus script. Is it possible?

Thanks

Subject: count responses

Panther,

Using Responses property of NotesDocument class, we can get the number of responses to a parent document. See the sample code below:

Sub Click(Source As Button)

Dim sess As New NotesSession

Dim db As NotesDatabase

Dim docoll As NotesDocumentCollection

Dim rescoll As NotesDocumentCollection

Dim doc As NotesDocument



Set db = sess.CurrentDatabase

Set docoll = db.UnprocessedDocuments

Set doc = docoll.GetFirstDocument()



While Not doc Is Nothing

	Set rescoll = doc.Responses

	Msgbox rescoll.Count

	Set doc = docoll.GetNextDocument(doc)

Wend

End Sub

Subject: RE: count responses

Thanks Balu…you have written a brilliant code.