LOTUSSCRIPT/COM/OLE CLASSES
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