LOTUSSCRIPT /COM/OLE のクラス

例:InternetLevel プロパティ
次のスクリプトは現在のデータベースに対する最大のインターネットアクセスレベルを取得し、それをメッセージで表示します。アクセスレベルが [管理者] であれば、[設計者] に変更します。

Dim session As New NotesSession
Dim db As NotesACL
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Messagebox acl.InternetLevel
If acl.InternetLevel = ACLLEVEL_MANAGER Then
 acl.InternetLevel = ACLLEVEL_DESIGNER
End If
Call acl.Save

関連項目