Sub Initialize
Dim workspace As New NotesUIWorkspace
Call workspace.OutlineReload("myoutline","plans¥currentyear")
End Sub
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Call uidoc.Save
' refresh current view to display the new document
Call workspace.OutlineReload("myindex","")
End Sub