例: IsPrivateAddressBook property (NotesDatabase - LotusScript®)

次のエージェントは、現在のセッションに認識されている個人アドレス帳を表示します。

Sub Initialize
  Dim session As New NotesSession
  Dim privates As String
  Forall db In session.AddressBooks
    Call db.open("", "") ' Must open database
    If db.IsPrivateAddressBook Then
      privates = privates & db.Server & " " & _
      db.FilePath & Chr(13)
    End If
  End Forall
  If privates = "" Then privates = "None"
  Messagebox privates,, "Personal Address Book databases"
End Sub