Mit Script ist das eine Kleinigkeit. Willst Du es damit einmal versuchen?
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim db As NotesDatabase
Set db = doc.ParentDatabase
Dim newdb As New NotesDatabase (db.Server, "Allgemein\Telefon.NSF")
If Not newdb.IsOpen Then
Msgbox "TelefonDB konnte nicht geöffnet werden", 16, "Fehler"
Exit Sub
End If
Dim newdoc As New NotesDocument (newdb)
newdoc.Form = "Telefonbuch"
'Hier kommt die Feldübernahme
newdoc.TXT_Vorname = doc.P_Vorname
...
Call workspace.EditDocument (True, newdoc)