Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase If ( db.IsOpen ) Then Print db.Title Else Call db.Open( "", "" ) Print db.Title End If
See Also