Hi,
da du nicht geschrieben hast, wo du das neue Dokument anlegen willst, nehme ich mal an, dass du es aus dem Dokument, aus welchem die Daten übernommen werden sollen, anlegen willst.
Dazu brauchst du einen Aktionsbutton mit folgendem Script.
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim newuidoc As NotesUIDocument
Set db = session.CurrentDatabase 'Aktuelle Datenbank
Set uidoc = workspace.CurrentDocument 'Zugriff auf aktuelles Dokument
Set doc = uidoc.Document
'Neues Dokument anlegen
Set newdoc = New NotesDocument(db)
newdoc.Form = "Maskename" 'Zuweisung mit welcher Maske das Dokument erstellt werden soll
'Datenübernahme aus aktuelle Dokument
newdoc.Feldname1 = doc.Feldname1
newdoc.Feldname2 = doc.Feldname2
Set newuidoc = workspace.EditDocument(True, newdoc) 'Neues Dokument anzeigen
Den Maskenname und die Feldnamen musst du natürlich an deine Gegebenheiten anpassen.
Axel