例: IsReaders property

次のスクリプトは Jeffrey Kinnamon を文書の Readers アイテムに追加します。

Dim doc As NotesDocument
'...set value of doc...
Forall i In doc.Items
  If i.IsReaders Then
    Call i.AppendToTextList( "Jeffrey Kinnamon" )
    Call doc.Save( False, True )
  End If
End Forall