как открыть в новом окне только что созданный документ

[Mikhail]

Привет всем! Че-то не могу найти в хелпе нужную вещь. Подскажите плиз, как открыть в новом окне только что созданный документ(я так думаю,должно быть что-то типа: docm.Open). Вот текст моей Action:

Sub Click(Source As Button)
Dim workkspace As New NotesUIWorkspace
Dim uuidoc As NotesUIDocument
Set uuidoc = workkspace.CurrentDocument
Set CurDoc = uuidoc.Document

Dim session As New NotesSession
Dim dbb As NotesDatabase
Dim docm As NotesDocument
Set dbb = session.CurrentDatabase

Dim item01 As NotesItem
Dim item02 As NotesItem
Dim item03 As NotesItem
Dim item04 As NotesItem
Dim item05 As NotesItem
Dim item06 As NotesItem
Dim item07 As NotesItem
Dim item08 As NotesItem
Dim item09 As NotesItem
Dim item10 As NotesItem

Set item01 = CurDoc.GetFirstItem( "1" )
Set item02 = CurDoc.GetFirstItem( "2" )
Set item03 = CurDoc.GetFirstItem( "3" )
Set item04 = CurDoc.GetFirstItem( "4" )
Set item05 = CurDoc.GetFirstItem( "5" )
Set item06 = CurDoc.GetFirstItem( "6" )
Set item07 = CurDoc.GetFirstItem( "7" )

Set docm = New NotesDocument( dbb )
docm.Form = "Инспектирование"

Call item01.CopyItemToDocument( docm, "1" )
Call item02.CopyItemToDocument( docm, "2" )
Call item03.CopyItemToDocument( docm, "3" )
Call item04.CopyItemToDocument( docm, "4" )
Call item05.CopyItemToDocument( docm, "5" )
Call item06.CopyItemToDocument( docm, "6" )
Call item07.CopyItemToDocument( docm, "7" )
Set item08 = docm.AppendItemValue( "8", 1 )

Call docm.Save( False, False )
'''''

''''
End Sub

 

[Medevic]

workkspace.EditDocument