例: ListInDbCatalog property (NotesDatabase - LotusScript®)

次のエージェントは現在のデータベースがデータベースカタログに表示されるかどうかを切り替えます。

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  If db.ListInDbCatalog Then
    db.ListInDbCatalog = False
    Print "List in database catalog"
  Else
    db.ListInDbCatalog = True
    Print "Do not list in database catalog"
  End If
End Sub