例: Managers property (NotesDatabase - LotusScript®)

  1. 次のスクリプトは現在のデータベースの管理者全員の名前を表示します。例えば「Helen Anda」、「LocalDomainServers」、「Sales」のように表示します。
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Forall m In db.Managers
      Messagebox( m )
    End Forall
  2. 次のアクションスクリプトはユーザーに提案の提出を促し、現在のデータベースの管理者にその提案をメールで送信します。
    Sub Click(Source As Button)
      Dim session As New NotesSession
      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Set db = session.CurrentDatabase
      Set doc = New NotesDocument( db )
      doc.Form = "Memo"
      doc.Subject = "Suggestion for "+ db.Title
      doc.Body = Inputbox$ _
      ( "Please enter your suggestion: ", db.Title )
      Call doc.Send( False, db.Managers )
    End Sub
  3. 次のアプリケーションは、相互に関連する 2 つのデータベースから構成されています。このスクリプトは第 1 番目のデータベースの管理者全員を検索して、第 2 番目のデータベースへの [管理者] のアクセス権を与えます。スクリプトが実行されるには、スクリプトが第 2 番目のデータベースの [管理者] のアクセス権を持っていなければなりません。
    Dim db1 As New NotesDatabase _
    ( "Key West", "cserv¥datadict.nsf" )
    Dim db2 As New NotesDatabase _
    ( "Key West", "cserv¥calltrak.nsf" )
    Forall mgr In db1.Managers
      Call db2.GrantAccess( mgr, ACLLEVEL_MANAGER )
    End Forall