Isreaders

[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

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

 

[Elena Nefedova]

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

 

[Ron]

Спасибо. Все заработало.