Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Другие СУБД Новый топик    Ответить
 Lotus Domino Objects  [new]
Железнодорожник
Member

Откуда:
Сообщений: 376
привет всем, из VB пытаюсь найти документ и открыть, подключил СОМ объекты Лотусовые,что сделано:
Private Sub Command1_Click()
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim ws As NOTESUIWORKSPACE
Dim coll As NotesDocumentCollection 
Dim search As String
If Not (ns Is Nothing) Then
    ns.Initialize ("password")
    Set db = ns.GetDatabase("MyServer", "MyDataBAse", False)
        If Not (db Is Nothing) Then
         search = "MyDocs"
            Set coll = db.search(search, Nothing, 0) ' тут находит документы, котрые нужны
            For j = 1 To coll.Count
            Set doc = coll.GetNthDocument(j)
            Call ws.EDITDOCUMENT(True, doc) 'тут ругается, что ws NO SET
            Next j
        End If
    Set db = Nothing
    Set ns = Nothing
    End If
End Sub
ws как мне инициализировать ? в Лотусу сразу обьявляется Dim ws As New NOTESUIWORKSPACE
а с СОМ объектами такого нету
Версия Лотуса 7
21 апр 10, 07:20    [8660299]     Ответить | Цитировать Сообщить модератору
 Re: Lotus Domino Objects  [new]
Железнодорожник
Member

Откуда:
Сообщений: 376
может другие варианты есть для отображения документа без NOTESUIWORKSPACE ?
21 апр 10, 09:05    [8660525]     Ответить | Цитировать Сообщить модератору
 Re: Lotus Domino Objects  [new]
Железнодорожник
Member

Откуда:
Сообщений: 376
разобрался, может кому нить пригодится
берем doc.NotesURL и запускаем через shell
21 апр 10, 15:46    [8664446]     Ответить | Цитировать Сообщить модератору
Все форумы / Другие СУБД Ответить