NotesRichtextItem verschiedene Textstile ?

baetmaen · 16. Februar 2009

Hi,

ich habe einen Agenten gebastelt der die Kollegen weltweit 2 mal jährlich an das Überprüfen Ihres Personendokuments im NAB zu Erinnern. Dabei möchte nun unser Admin in USA, das ich da nen mords Hinweistext mit einem Fetten Satz und so weiter einbauen soll.

Code

Call rtitem.AppendText(message1)
			Call rtitem.AddNewline(2)
			Call rtitem.AppendText(message2)
			Call rtitem.AppendDocLink(doc,"Please click this link to open the document")
			Call newdoc.Send(False,email)

Wenn ich die Hilfe richtig verstanden habe kann ich per LotusScript das RTItem nicht im Stil beeinflussen oder doch ?

"The text is rendered with the current style of the item (such as bold or italics"

Der Text den ich in der versendeten Mail haben soll ist auf dem angehöngten Bild gezeigt (Einschübe und Bold bräuchte ich)...

Jemand einen Tipp für mich ?

Gruß
joerg

Jan_Powollik · 16. Februar 2009

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

baetmaen · 17. Februar 2009

Oh das habe ich völlig übersehen...

Also mit NotesRichTextStyle kann ich die Schrift in Größe und Form ändern und mit NotesRichTextParagraphStyle Einschübe oder den Zeilenabstand zb.

Allerdings bringt mich das auch nur bedingt weiter. wenn ich per

Code

rtstyle.bold=True

die Texteigenschaft umstelle (in diesem Fall NotesRichTextStyle) kommt auch alles dahinter in Fett raus. Soweit so gut. Wenn ich das jedoch wieder auschalten muss weil danach wieder normaler Text kommt ist das komplette RTItem wieder normal geschrieben. Hab ich da was falsch verstanden/gemacht ?

Joerg

Jan_Powollik · 17. Februar 2009

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:

Code

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")

Alles anzeigen

baetmaen · 18. Februar 2009

Das hat funktioniert....Der Wald vor lauter Bäumen...(und nach wie vor LS Anfänger)....

Ich danke vielmals
Joerg

Jan_Powollik · 19. Februar 2009

Freut mich, dass es funktioniert.

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

Grüße Jan

Teilen