LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsPrivateAddressBook property
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

See Also