Questo dovrebbe essere il codice
Dim WS As New NotesUIWorkspace
Dim Session As New NotesSession
Dim DbB As NotesDatabase
Dim DocB As NotesDocument
Set DbB = New NotesDatabase(server, filepath)
If DbB.IsOpen Then
Set DocB = DbB.CreateDocument
DocB.Form = form
Call WS.EditDocument(DocB, True)
End If
|