Агентом создать документ в Лотусе на основе внешнего файла

Public Sub CreateFromTemplate


Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim templateName As String
Dim templateView As NotesView
Dim templdoc As notesdocument	
Dim ws As New notesuiworkspace 

templateName="Приказ о допуске к государственной аттестации (ИПИ)"
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )

Set templateView = curdb.GetView("Шаблоны")
Set templdoc = templateView.GetDocumentByKey(templateName)

doc.Subject = "New"
Call MakeNonSumItems(doc)
doc.form="OutputMain"

Call doc.Save( True, True )	
Call CopyFromTemplate(templdoc,doc)	

End Sub