Einzelne Elemente in einem RichtextFeld FETT

[Gruenkohl]

Hallöchen ,

ich hab nen Problem mit der Formatierung eines Richtextfeldes.
Ich ziehen mir aus mehreren Dokumenten 2 Elemente.
Das Erste Elemente soll Fett und das Zweite normal in ein neues RichtextFeld übertragen werden.

Ich habe folgende Lösung versucht, welche aber keine Veränderungen erbracht hat:

Dim RTItemBody As NotesRichTextItem
Dim RTIElement1 As NotesRichTextItem
Dim RTIElement2 As NotesRichTextItem
Dim richStyle As NotesrichTextStyle

Set richStyle = s.CreateRichTextStyle
richStyle.Bold = True

Call RTItemBody.AppendStyle(richStyle)
Call RTItemBody.AppendRTItem(RTIElement1)
richStyle.Bold = False
Call RTItemBody.AppendRTItem(RTIElement2)

Bin für jede Hilfe dankbar.

Andreas