LOTUSSCRIPT /COM/OLE のクラス

例:SetOption メソッド
次のエージェントは、データベースオプションの値を切り替えます。

Sub Initialize
 Dim session As New NotesSession
 Dim db As Notesdatabase
 Set db = session.CurrentDatabase
 If db.GetOption(DBOPT_SOFTDELETE) Then
   Call db.SetOption(DBOPT_SOFTDELETE, False)
 Else
   Call db.SetOption(DBOPT_SOFTDELETE, True)
 End If
 Messagebox db.GetOption(DBOPT_SOFTDELETE) ,, "Soft deletions"
End Sub

関連項目