1. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Первый товар уже в продаже: Консультация на тему ИБ от Ondrik8

    Скрыть объявление
  2. Спонсор публикаций Marketplace codeby. Сервис, который так долго ждали. При расчетах используем биткоин. Второй товар маркетплейса: Надёжная обфускация вашей программы от PingVinich

    Скрыть объявление

Как программно открыть выбранный в коллекции документ

Тема в разделе "Lotus - Программирование", создана пользователем STIL, 26 сен 2006.

Статус темы:
Закрыта.
  1. STIL

    STIL Гость

    Репутация:
    0
    Как программно открыть выбранный в коллекции документ
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesUIWorkspace.EditDocument
     
  3. Dikobraz Grey

    Dikobraz Grey Гость

    Репутация:
    0
    Код (Text):
     Dim result As Variant
    Const NotesMacro$ = "@Command([OpenDocument];"1")"
    result = Evaluate(NotesMacro$, doc)
    где doc - твой документ

    выбирай)
    вместо "1" можно поставить "0" и тогда док откроется для чтения, а не редактирования
     
  4. STIL

    STIL Гость

    Репутация:
    0
    (3) здорово, то что надо
     
  5. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    30 май 2006
    Сообщения:
    1.319
    Симпатии:
    4
    Интересно, с каких это пор @Command-ы Эвалюэйтиться начали? Я что-то пропустил?
     
  6. Dikobraz Grey

    Dikobraz Grey Гость

    Репутация:
    0
    Нет, это я что-то стормозил ;)
     
  7. STIL

    STIL Гость

    Репутация:
    0
    (5,6) Почему? Что там не так?
     
  8. Dikobraz Grey

    Dikobraz Grey Гость

    Репутация:
    0
    HELP:

    а у тебя работает??
     
  9. GROMILA

    GROMILA Well-Known Member

    Репутация:
    0
    Регистрация:
    8 апр 2004
    Сообщения:
    297
    Симпатии:
    0
    эх, а в хелп почему не заглянешь?

    Код (Text):
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim collection As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim uidoc As NotesuiDocument

    Set db = session.CurrentDatabase
    Set collection = db.UnprocessedDocuments
    Set doc = collection.GetFirstDocument()
    Set uidoc = ws.EditDocument(True,doc)
    ну и еще проверочки понатыкай
     
  10. STIL

    STIL Гость

    Репутация:
    0
    (9) Я уже давно заглянула, но все равно спасибо большое :))))
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей