Isreaders

  • Автор темы Ron
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

Ron

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

Заранее спасибо за ответы.
 
E

Elena Nefedova

Гость
#2
Закройте документ контекста без записи и затем снова откройте.
 
Статус
Закрыто для дальнейших ответов.