Isreaders

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

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

    Ron Гость

    Написал агент для установления isReaders флага на некоторых документах, но что не работает.
    Может у кого есть идеи, почему? :)

    Sub Initialize
    Dim db As NotesDatabase
    Dim session As New NotesSession
    Dim doc As NotesDocument
    Dim item As NotesItem

    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Set doc = session.DocumentContext

    Set item = doc.GetFirstItem( "NameReaders" )

    item.IsReaders = True

    Call doc.Save( False, True )
    End Sub

    Заранее спасибо за ответы.
     
  2. Elena Nefedova

    Elena Nefedova Гость

    Закройте документ контекста без записи и затем снова откройте.
     
  3. Ron

    Ron Гость

    Спасибо. Все заработало.
     
Статус темы:
Закрыта.

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