LOTUSSCRIPT /COM/OLE のクラス

例:UniformAccess プロパティ
次の例はユーザーの指示で UniformAccess プロパティの設定を切り替えます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
If acl.UniformAccess Then
 If Messagebox("Do you want to toggle?", _
 MB_YESNO + MB_ICONQUESTION, _
 "Uniform access is in effect") = IDYES Then
   acl.UniformAccess = False
   Call acl.Save
 End If
Else
 If Messagebox("Do you want to toggle?",_
 MB_YESNO + MB_ICONQUESTION, _
 "Uniform access is not in effect") = IDYES Then
   acl.UniformAccess = True
   Call acl.Save
 End If
End If

関連項目