So ganz quick and dirty hab ich's mal so versucht.
Sub Postopen(Source As Notesuidocument)
If source.EditMode = True Then
Call source.FieldSetText("test", "1")
Call source.FieldSetText("test2", "dfdf")
Call source.Save
End If
End Sub
Das funktioniert zwar, aber ob das für dich praktikabel ist kann ich nicht sagen.
Axel