eigentlich so wie in der Hilfe beschrieben. ich bekomme nur den reinen text des body feldes in dem neuen dokument angezeigt und leider nicht den gesamten Inhalt wie beim Weiterleiten.
anbei mein code
Sub Initialize
Dim session As New NotesSession
Dim ws As New NotesUIworkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim docOld As NotesDocument
Dim docNew As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = session.CurrentDatabase
Set docOld = db.UnprocessedDocuments.GetFirstDocument
Set docNew = db.CreateDocument()
Set rtitem = New NotesRichTextItem(docNew,"Body")
docNew.Form="Test"
Call docNew.Save(True,True)
Call docOld.RenderToRTItem(rtitem)
Call docNew.Save(True,True)
End Sub
ich habe nochmal einen Screenshot gemacht, der gelbe Bereich ist das Ursprungsdokument, der kleine Bereich ist das neue Dokument.