Создания нового документа из Lotusscript

[Guest]

Можно ли по данным значением создавать новый документ, т.е переносить значения из PickListStrings для создания нового документа?

 

[Omh]

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase

Set dc = ws.PickListCollection( PICKLIST_CUSTOM, False, db.server, db.Filepath, "ViewName", "Select ", "Please select ")
if dc.count > 0 then
Dim SelectedDoc as NotesDocument
Set SelectedDoc = dc.getFirstDocument

Dim newDoc as NotesDocument
Set newDoc = db.CreateDocument
Call newdoc.ReplaceItemValue("Form", "FORM")
'тут копируем значения из SelectedDoc в NewDoc
Call ws.EditDocument(True, Doc) 'ну или Save, смотря что надо
end if