Super :)
Das hier:
...
Dim dr As NotesDocumentCollection
Set dr = doc.Responses
If dr.Count=0 Then
...
funktioniert.Vielen Dank.
Es wäre mir lieber, eine Ansicht ohne antwortbehaftete Dokumente zu erzeugen, als diese Lösung (im nachhinein) zu benutzen. Kann das definitiv ausgeschlossen werden?