Beiträge von Jan_Powollik

Freut mich, dass es funktioniert.

Ja der Wald und die Bäume, die Thematik kenne ich

Grüße Jan

Aus der Designer Hilfe zu AppendStyle:

Zitat

Inserts a style in a rich text item. Text following the style is rendered using that style's attributes until another style is appended.

Also probier mal das hier:

Dim richStyle_N As NotesRichTextStyle
Dim richStyle_B As NotesRichTextStyle


Set richStyle_N = session.CreateRichTextStyle	<-- Style für normalen Text
Set richStyle_B = session.CreateRichTextStyle	<-- Style für fettgedruckten Text


richStyle_B.Bold = True
richStyle_N.Bold = False


Call richText.AppendStyle(richStyle_N)		<-- Text normal setzen
Call richText.AppendText("Normaler Text")


Call richText.AppendStyle(richStyle_B)		<-- Text fett setzen
Call richText.AppendText("Fetter Text")

schau mal in der Hilfe unter AppendParagraphStyle des NotesRichTextItem nach. Das dort aufgeführte Beispiel sollte Dir weiterhelfen.

oder noch besser: NotesRichTextStyle

Grüße Jan