添加人名：doc - Security 标签 - "Who can read this document"列表框

如果 Notes 数据库中的文档，存在读者域，而这个框里面的读者又不与文档中的读者域发生关系。

Sub Initialize
 Dim session As New NotesSession
 Dim dc As NotesDocumentCollection 
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 
 Set db = session.CurrentDatabase 
 Set dc = db.AllDocuments 
 
 Set doc = dc.GetFirstDocument 
 While Not(doc Is Nothing) 
  Forall i In doc.Items
   'If i.IsReaders Then //这句可以不用，只是这句代表当前文档的ITEMS 是否是读者域。
   If i.Name="$Readers" Then
    Call i.AppendToTextList( "bin xu" )
    Call doc.Save( False, True )
   End If
   'End If
  End Forall
  Set doc = dc.GetNextDocument(doc)
 Wend
 
End Sub