Wechsel in Fettschrift in einer Formel

[mweitzel]

Hallo,

über ein Script baue ich aus verschiedenen Feldern einen Text zusammen, der dann an das Feld Body übergeben wird.

Dim tmptext As String
tmptext = tmpbody(0) & "Hinweis: Dies ist eine automatische Antwort auf Ihre eMail-Nachricht: " & currsubject(0) & " gesendet am: " & currposted(0) & "."
doc.body = tmptext

Ich möchte nun aber, dass  in dem Text der Inhalt von currsubject(0) als auch currposted(0) Fett ist.
Geht das irgendwie?

[rambrand]

Hallo,

schau Dir mal in der Designerhilfe die Klasse NotesRichTextStyle an. Da ist auch ein entsprechendes Beispiel.

Bye,
Markus

[mweitzel]

An der Stelle hatte ich mich auch schon einmal versucht. Das sah dann so aus:

Dim tmptext As String
Dim richStyle As NotesRichTextStyle   
Set richStyle = session.CreateRichTextStyle

tmptext = tmpbody(0) & "Hinweis: Dies ist eine automatische Antwort auf Ihre eMail-Nachricht: " & richStyle.Bold & currsubject(0) & " gesendet am: " & richStyle.Bold & currposted(0) & "."

Dabei war allerdings das Ergebnis, dass dann anstatt der Fettschrift an der Stelle die Zahl 255 im Text stand.

[rambrand]

Schau Dir das Beispiel in der Designerhilfe an.

Du kannst in einer String-Variablen keine Formatierungen hinterlegen.

Code-Beispiel anhand des Beispiels aus der Designerhilfe:

Code

  Dim richStyle As NotesRichTextStyle
  Set richStyle = session.CreateRichTextStyle
  Dim richText As New NotesRichTextItem(doc, "Body")
  Call richText.AppendText("Hinweis: Dies ist eine automatische Antwort auf Ihre eMail-Nachricht: ")
  richStyle.Bold = True
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText(currsubject(0))
  richStyle.Bold = False
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText(" gesendet am: ")
  richStyle.Bold = True
  Call richText.AppendStyle(richStyle)
  Call richText.AppendText(currposted(0))
  richStyle.Bold = False
  Call richText.AppendStyle(richStyle)

Bye,
Markus

[mweitzel]

OK, mit dem einzelnen Aufbau hat es jeztt fuinktioniert.

Danke!!!!