Meine Frage: Benutze ich die richtigen Befehle um den Inhalt eines RichText Feldes in ein anderes zu kopieren?
Im Originaldokument werden nach mehrmaligem Ausführen des unten gezeigten Scriptes etliche Items mit dem Namen $File angezeigt, aber im Feld wo der Inhalt hinein soll erscheint nichts!
Über einen Tipp würde ich mich freuen.
Ich habe in einer Schaltfläche folgendes Script hinterlegt (kommt aus der Designer Hilfe), und im Debugger werden auch keine Fehler angezeigt, die Feldwerte scheine auch richtig erkannt zu werden:
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim uidoc As NotesUIDocument
Dim view As NotesView
Dim rtitemA As Variant
Dim rtitemB As Variant
Set db = session.CurrentDatabase
Set view = db.GetView( "KursInhaltSuchen" )
Set uidoc = w.CurrentDocument
Set docA = uidoc.Document
Set docB = view.GetDocumentByKey(docA.Kursname)
Set rtitemA = docA.GetFirstItem( "Kursinhalt" )
Set rtitemB = docB.GetFirstItem( "Kursinhalt" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AppendRTItem( rtitemB )
Call docA.Save( False, True )
Call docB.Save( False, True )
End If
End Sub
Grüße, Krista