1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

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

Тема в разделе "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
    Код:
     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.323
    Симпатии:
    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
    эх, а в хелп почему не заглянешь?

    Код:
    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) Я уже давно заглянула, но все равно спасибо большое :))))
     
Загрузка...
Статус темы:
Закрыта.

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