LOTUSSCRIPT /COM/OLE のクラス

例:IsAdminReaderAuthor プロパティ
次のエージェントは、現在のデータベースの IsAdminReaderAuthor を切り替えます。

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim acl As NotesACL
 Set db = session.CurrentDatabase
 Set acl = db.ACL
 If acl.AdministrationServer = "" Then
   Messagebox "No admin server",, "Can't change"
   Exit Sub
 End If
 If acl.IsAdminReaderAuthor Then
   acl.IsAdminReaderAuthor = False
 Else
   acl.IsAdminReaderAuthor = True
 End If
 Call acl.Save
 Messagebox "IsAdminReaderAuthor changed",, _
 acl.IsAdminReaderAuthor
End Sub

関連項目