Domino 9 und frühere Versionen > ND6: Entwicklung

Inhalte aus zwei RTF Feldern in neues RTF-Feld ausgeben

(1/1)

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
--- Ende Code ---

Aus der Designer-Hilfe

Navigation

[0] Themen-Index