LOTUSSCRIPT /COM/OLE のクラス

例:ProtectReaders プロパティ
次のスクリプトは、[読者] フィールドの保護をユーザーの指定に応じて切り替えます。

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
formNameIn = Lcase(Inputbox("Name of form?"))
Forall form In db.Forms
 If Lcase(form.Name) = formNameIn Then
   If form.ProtectReaders Then
     form.ProtectReaders = False
     Messagebox "ProtectReaders is set for " _
     & form.Name
   Else
     form.ProtectReaders = True
     Messagebox "ProtectReaders is not set for " _
     & form.Name
   End If
   Exit Sub
 End If
End Forall
Messagebox "The form """ & formNameIn & """ does not exist"

関連項目