Als Beispiel ein Script wie es meiner Meinung nach aussehen könnte:
Sub Postopen(Source As Notesuidocument)
Source.document.SaveOptions = "1"
If Source.IsNewDoc Then
' Initialisierung der ObjRef
Dim oDb1 As NotesDatabase
Dim oDb2 As NotesDatabase
Dim oView1 As NotesView
Dim oDoc1 As NotesDocument
Dim sServer As String
Dim Thema (0) As String
' Instatiierung der ObjRef
Set oSession = New NotesSession
sServer = Source.fieldGetText("txtMailServer")
Set oDb = Session.getDatabase(sServer,"mail\userdb.nsf")
Set oView = oDb.getView("($Calendar)")
Set oDoc = oView.getDocumentByKey(Subject)
Thema = oDoc.getItemValue("Subject")
Set oView1 = oDb.getView("($Calendar)")
Set oDoc1 = oView1.getDocumentByKey(Subject(0))
Thema = oDoc1.getItemValue("Subject")
Call Source.FieldSetText("Textfeld",Thema(0))
End If
End Sub