Код:
Dim ns as new NotesSession
Dim ws as new NotesUIWorkSpace
Dim dbs as Variant
Dim dbd as NotesDatabase
Dim dbcur as NotesDatabase
Dim dcur as NotesUIDocument
Set dbcur=ns.CurrentDatabase
Set dcur=ws.CurrentDocument
dbs=dcur.FieldGetText("Dbs")
dbs=Split(dbs,",")
For i=0 To Ubound(dbs)
Set dbd=ns.GetDatabase(dbcur.Server,Cstr(dbs(i)),False)
Call dcur.FieldAppendText("log",dbd.Title+Chr(13)+Chr(10))
Next
dbd=Nothing всегда
В чем может быть проблема?