Замечание к документу "Это я знаю. А как добраться к этим элементам?(+)"   >>>

Тема: Как сказали, проще всего в SandBox найти библиотеку DBDesign. [+]

Это обертка к нотусовому API. Если сам захочешь к API обращаться вот "план действий", взятый из DBDegign

Const NOTE_CLASS_DOCUMENT = &H0001 ' document note
Const NOTE_CLASS_DATA = NOTE_CLASS_DOCUMENT ' old name for document note
Const NOTE_CLASS_INFO = &H0002 ' notefile info (help-about) note
Const NOTE_CLASS_FORM = &H0004 ' form note
Const NOTE_CLASS_VIEW = &H0008 ' view note
Const NOTE_CLASS_ICON = &H0010 ' icon note
Const NOTE_CLASS_DESIGN = &H0020 ' design note collection
Const NOTE_CLASS_ACL = &H0040 ' acl note
Const NOTE_CLASS_HELP_INDEX = &H0080 ' Notes product help index note
Const NOTE_CLASS_HELP = &H0100 ' designer's help note
Const NOTE_CLASS_FILTER = &H0200 ' filter note
Const NOTE_CLASS_FIELD = &H0400 ' field note
Const NOTE_CLASS_REPLFORMULA = &H0800 ' replication formula
Const NOTE_CLASS_PRIVATE = &H1000

Const NOTE_CLASS_ALLNONDATA = &H7FFE 'в частности для твоей задачи нужено это значение для classtype

Private Function getDocuments( classtype As Integer) As Variant
Dim begindate As Double
Dim enddate As Double
Dim idtablehandle As Long
Dim noteid As Long
Call apiTimeConstruct( &hFFFFFFFF, &hFFFFFFFF, begindate )
On Error Goto errhandle
Call checkerror(apiNSFDbGetModifiedNoteTable( dbhandle, classtype, begindate , enddate , idtablehandle ))
If apiIDEntries( idtablehandle) <>0 Then
Redim returnval (apiIDEntries( idtablehandle)-1) As NotesDocument

Dim count As Long
If apiIDScan( idtablehandle, True, noteid ) Then
Set returnval( count) = db.getDocumentByID(Hex$( noteId))
Do While apiIDScan( idtablehandle, False, noteid )
count = count + 1
Set returnval( count) = db.getDocumentByID(Hex$( noteId))
Loop
End If
getDocuments = returnval
End If
done:
If idtablehandle <>0 Then
Call apiOsMemFree( idtablehandle)
End If
Exit Function
errhandle:
Resume done
End Function