| |
|
|
| | узнал здесь
http://www.sql.ru/Forum/actualthread.aspx?bid=30&tid=370047&hl=
что можно через domobj.tlb
сделал. работает!  | |
| |
| |
| |
|
|
| |
'в референсах предварительно подключить 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
|
| |
| |
| |
| |
|
|
| | Силыч, а для особо одарённых -
ты чё узнал?  | |
| |
| |
| |
|
|
| | всё остальное   | |
| |
| |
| |
|
|
| | это ж через OLE :-(
это ж надо что бы клиент лотусовый был проинстален
я тебе хотел предложить такой вариант, но необходимость клиента меня остановила
возможен еще вариант выкидывать агентом нужного XML в HTTP запрос
но для этого нужно чтобы HTTP задача была на сервере поднята. (но работать по идее должно быстрее)
Еще есть DIIOP (это такая задача на сервере лотусовом) он позволяет коннектиться без лотусового клиента
если ничего не путаю corba
можно еще свой сервис лотусовый написать | |
| |
| |
| |
|
|
| | это для внутреннего использования
у всех лотус-клиенты
да, можно договориться с лотусниками , поднимут сервис
но практика показывает, что этот путь долог :) у нас
решение через Олю - лучшее на сегодняшний день для тех задач, что поставлены :)
хуже не будет уже
 | |
| |
| |
