Examples: IsPrivateAddressBook property (NotesDatabase - LotusScript®)

This agent displays the Personal Address Book databases known to the current session.

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