Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Bytesnake am 05.04.06 - 10:39:54

Titel: Inhalte aus zwei RTF Feldern in neues RTF-Feld ausgeben
Beitrag von: Bytesnake am 05.04.06 - 10:39:54

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 !

Titel: Re: Inhalte aus zwei RTF Feldern in neues RTF-Feld ausgeben
Beitrag von: diali am 05.04.06 - 10:41:42

sollte eigentlich mit notesRichTextItem.AppendRTItem funktionieren.

Titel: Re: Inhalte aus zwei RTF Feldern in neues RTF-Feld ausgeben
Beitrag von: Untitled am 05.04.06 - 10:43:34

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