LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim entryB As NotesViewEntry Dim nav As NotesViewNavigator Dim doc As NotesDocument
Set db = session.CurrentDatabase Set view = db.GetView("By Category") Set nav = view.CreateViewNav Set entryB = nav.GetPos(Inputbox$("Entry position: "), ".") Set doc = entryB.Document Call doc.PutInFolder("My Favorites")
See Also