Ich bekomme es einfach nicht hin. Das neue Dokument öffnet zwar, aber der Text UND der Anhang fehlen :-x .
Das ist mein Script:
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim itemRT As NotesItem
Set uidoc = ws.CurrentDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument ( db )
'Maske des Dokumentes, in die die Daten geschrieben werden sollen
doc.Form="DOK"
Call ws.EditDocument(True, doc)
'hole aus dem geöffneten Dokument die Inhalte aus dem Feld description
Set itemRT = uidoc.document.getfirstitem("description")
'schreibe den Inhalt in das Feld description_dcm in ein Dokument das mitt der Maske DOK erstellt wurde
Call itemRT.copyitemtodocument(doc, "description_dcm")
Call doc.Save( True, True )
End Sub
Wo könnte der Fehler liegen???