LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim db As NotesDatabase Dim outline As NotesOutline Dim entryA As NotesOutlineEntry Dim entryB As NotesOutlineEntry Set db = session.CurrentDatabase Set outline = db.getOutline("Products") Set entryA = outline.GetLast() Set entryB = outline.GetFirst() Call outline.MoveEntry(entryA,entryB,1,1) Call outline.save()
See Also