LOTUSSCRIPT/COM/OLE CLASSES
Sub Click(Source As Button) Dim session As New NotesSession Dim db As NotesDatabase Dim workspace As New NotesUIWorkspace Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim uiview As NotesUIView Set db = session.CurrentDatabase Set uiview = workspace.CurrentView Set collection = db.AllDocuments Set doc = collection.GetFirstDocument Call uiview.SelectDocument(doc) End Sub
See Also