LOTUSSCRIPT /COM/OLE のクラス

例:GetOption メソッド
次のエージェントは、データベースオプションの値を取得します。

Sub Initialize
 Dim session As New NotesSession
 Dim db As Notesdatabase
 Set db = session.CurrentDatabase
 If db.Getoption(DBOPT_SOFTDELETE) Then
   Messagebox "Soft deletions enabled",, db.Title
 Else
   Messagebox "Soft deletions not enabled",, db.Title
 End If
End Sub

関連項目