'в референсах предварительно подключить domobj.tlb,
'который должен быть в папке, где проинсталлирован лотус-клиент
Function lotus_domobj(MePass$)
On Error GoTo Err123
Dim session As New NotesSession
Dim Database As NotesDatabase
Dim View As NotesView
Dim doc As NotesDocument
Dim db As Database
Dim i&
Call session.Initialize(MePass)
Set db = CurrentDb
'?lotus_domobj("<ваш пароль в лотусе>")
Set Database = session.GetDatabase("<сервер>", "<база>")
Set View = Database.GetView("<вьюха>")
Set doc = View.GetFirstDocument
Do While Not (doc Is Nothing)
For i = 0 To UBound(doc.ColumnValues)
Debug.Print doc.ColumnValues(i)
Next i
Set doc = View.GetNextDocument(doc)
Loop
Set session = Nothing
db.Close
Exit123:
Exit Function
Err123:
MsgBox Err.Description
Set session = Nothing
Resume Exit123
End Function
|