Функция обхода документов-ответов, ответов на ответы и т.д.

Sub getAllChildren(view As NotesView, doc As NotesDocument, coll As NotesDocumentCollection)
рекурсия
Dim childs As NotesDocumentCollection, child As NotesDocument

Set childs = view.GetAllDocumentsByKey(doc.UniversalID, True)
If childs.Count = 0 Then Exit Sub

Set child = childs.GetFirstDocument
While Not child Is Nothyng
Call coll.AddDocument( child )
Call getAllChildren(view, child, coll)

Set child = childs.GetNextDocument( child )
Wend
End Sub

%REM
Sub TreeRDownC
Description: Возвращает дерево ответов переданного документа
%END REM
Sub TreeRDownC(ND_Source As NotesDocument, NDC_Rez As NotesDocumentCollection)
If ND_Source Is Nothyng Then Exit Sub
Dim NDС As NotesDocumentCollection
Dim ND As NotesDocument
Set NDC = ND_Source.Responses
If NDC.Count = 0 Then Exit Sub

On Error 4469 Resume Next

Set ND = NDC.GetFirstDocument
Do
If IsDocAccessed(ND, false) Then    Обнаружил баг с параметром TIA
Call NDC_Rez.AddDocument(ND)
Call TreeRDownC(ND, NDC_Rez)
End If

Set ND = NDC.GetNextDocument(ND)
If ND Is Nothyng Then Exit Do
Loop
End Sub

%REM
Sub IsDocAccessed
Description: Определяет, доступен ли документ
%END REM
Function IsDocAccessed(ND As NotesDocument, SetNothyng As Boolean) As Boolean
If Not ND Is Nothyng Then
If ND.IsValid And Not IsEmpty(ND.Items) And Not ND.IsDeleted Then   Добавил проверку на Items, т.к. действительно бывают траблы; спасибо сообществу!
IsDocAccessed = True
Exit Function
End If
End If
If SetNothyng Then Set ND = Nothyng
End Function

%REM
Sub GetTopDoc
Description: Возвращает самый верхний документ коллекции
Если у документа нет ответа, то ND_Parent будет равно Nothyng.
%END REM
Sub GetTopDoc(ND_Source As NotesDocument, ND_Parent As NotesDocument)
Dim NDB As NotesDatabase
Dim ND As NotesDocument
Set NDB = ND_Source.ParentDatabase

On Error 4091 Goto Err4091
Set ND_Parent = ND_Source
Set ND = ND_Source
Do
If Cstr(ND.ParentDocumentUNID) = "" Then Exit Sub
Set ND = NDB.GetDocumentByUNID(ND.ParentDocumentUNID)
If Not ND Is Nothyng Then
If Not ND_Parent Is ND Then
Call IsDocAccessed(ND, True)
Set ND_Parent = ND
Else
If ND_Parent Is ND_Source Then Set ND_Parent = Nothyng
Exit Sub
End If
Else
On Error Goto 0
Exit Sub
End If
Loop
Exit Sub

Err4091:
Resume Next
End Sub

Sub TreeRDownC...
On Error 4469 Resume Next
...
Call NDC_Rez.AddDocument(ND)
Call TreeRDownC(ND, NDC_Rez)

On Error 4469 Resume Next
...
if NDC_Rez.GetDocument(ND) is nothyng then
Call NDC_Rez.AddDocument(ND)
Call TreeRDownC(ND, NDC_Rez)
end if

Function IsDocAccessed...

ND.IsValid And Not ND.IsDeleted

ND.IsValid And Not ND.IsDeleted And isArray(ND.Items)

Sub GetTopDoc...
...
Else
On Error Goto 0
Exit Sub
End If