Sub Regiondoubleclick(Source As Notesuiview)
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim newDoc As NotesDocument
Set db = source.view.Parent
Set newDoc = New NotesDocument( db )
'Assign values to all fields that you want to have the default value when the doc opens:
newDoc.Form = "YourFormName" 'this is important, if you don't know open in Notes client the Document properties of one of existing docs, go to second tab and you'll see all field names and values
newDoc.YourDateFieldName = source.CalendarDateTime
'...
Call newDoc.Save( True, False )
Call w.EditDocument( True, newDoc, False, "", False, False )
End Sub
|