Oder wenn du es selbst machen möchtest, dann arbeite ich bei solchen Aufgabenstellungen immer mit der Queryopendocument Methode der entsprechenden Ansicht.
Die Ansicht darf natürlich dannnicht für andere Zwecke zusätzlich benutzt werden da im Queryopendocument ein Continue = False steht, was das eigentliche Öffnen des Dokuments verhindert.
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim uidoc As notesUIdocument
Dim doc As NotesDocument
Dim selectedDoc As NotesDocument
Set selectedDoc = source.Documents.GetFirstDocument()
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
doc.CompanyNumber = selectedDoc.CompanyNumber
doc.CompanyName = selectedDoc.CompanyName
doc.SecondApprover = selectedDoc.SecondApprover
doc.ChoosenDocUNID = selectedDoc.UniversalID
continue = False
End Sub