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

関連項目

ListInDbCatalog プロパティ

用語集