- 次のスクリプトは現在のデータベースの管理者全員の名前を表示します。例えば「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
- 次のアクションスクリプトはユーザーに提案の提出を促し、現在のデータベースの管理者にその提案をメールで送信します。
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
- 次のアプリケーションは、相互に関連する 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