|
: -1 : 0 : 1 |
something like
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Set db = session.CurrentDatabase Set doc = db.GetProfileDocument("profile") Dim workspace As New NotesUIWorkspace Call workspace.DialogBox _ ("Dialog Box", True, True, False, False, False, _ False, "Dialog Box", doc) End Sub
|