LOTUSSCRIPT /COM/OLE のクラス
例:Managers プロパティ
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
関連項目
Managers プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集