1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

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

Isreaders

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

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

    Ron Гость

    Репутация:
    0
    Написал агент для установления 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 Гость

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

    Ron Гость

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

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