- wenn du mehrer Felder brauchst geht das viel besser mit Picklist
mach dir ein button neben das user Feld - der folgende aktion beinhaltet:
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As Notesdocument, actdoc As Notesdocument
Dim col As NotesDocumentCollection
Set db = ws.CurrentDatabase.Database
dbname = ws.CurrentDatabase.Database.filepath
userview = "userview"
Set col = ws.PickListCollection(1, False, "",dbname,userview,"Select", "Please select a document.")
If col.count = 0 Then Exit Sub
Set doc = col.GetfirstDocument
Set actdoc = ws.Currentdocument.document
Call actdoc.replaceitemvalue("Subject", doc.Subject(0) )
' und der Rest der Felder ....
actdoc.save True, False
cu