LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim domdirs As String Forall db In session.AddressBooks Call db.open("", "") ' Must open database If db.IsPublicAddressBook Then domdirs = domdirs & db.Server & " " & _ db.FilePath & Chr(13) End If End Forall If domdirs = "" Then domdirs = "None" Messagebox domdirs,, "Domino Directory databases" End Sub
See Also