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