Sub Click(Source As Button)
    On Error Goto ErrH
    Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    Dim server As String
    server = db.Server
    Set uiview = ws.CurrentView
    Set doc = db.GetDocumentByID(uiview.CaretNoteID)    
    
    Msgbox doc.header(0)
    Call ws.DialogBox("history",True,True,False,True,False,False,"title",doc,True,False)
    Call doc.Save(True, False)
    Exit Sub
ErrH:
    Print "Ошибка: " & Error(Err) & " в строке " & Erl
End Sub