Inhalte aus zwei RTF Feldern in neues RTF-Feld ausgeben

[Bytesnake]

Hallo zusammen,

ich habe 2 Rich Text Felder und möchte im ersten Schritt den Inhalt aus Feld1 in ein drittes RTF-Feld (Feld3) schreiben und anschliessend den Inhalt aus Feld 2 an Feld 3 anhängen.

Kann man das relativ einfach über einen Agenten realisieren ?
Ich bekomme es einfach nicht hin, das im Feld 3 wirklich die Daten angehängt werden.

Vielen Dank für Eure Hilfe im Voraus !

[diali]

sollte eigentlich mit notesRichTextItem.AppendRTItem funktionieren.

[Untitled]

Code

Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
  Call rtitemA.AppendRTItem( rtitemB )
  Call rtitemB.Remove
  Call docA.Save( False, True )
  Call docB.Save( False, True )
End If

Aus der Designer-Hilfe