Sub Postopen(Source As Notesuidocument)

    Dim session As New NotesSession
    Dim ws As New notesuiworkspace
    Dim doc As notesdocument, curdoc As notesdocument

....
        Source.EditMode = True    
        
If source.EditMode=False Then            
source.close                    
answer% = Messagebox("Открыть КОПИЮ документа ДЛЯ ЧТЕНИЯ ?  Изменения в документе не будут сохранены ! ", 1, "Внимание!")
    If answer%=1 Then
    Set doc=db.CreateDocument
    Call source.Document.CopyAllItems(doc)
    doc.saveoptions="0"
    Call ws.EditDocument(True, doc)
    End If                        
End If