|
Hallo Leute,
ich nutze ein Script um automatisch Mails via Lotus Notes zu versenden, das funktioniert ohne Probleme. Als kleines extra würde ich jetzt noch den Txt der Mail etwas formatieren (Farbe, Schriftart usw.)
Set rtitem = doc.CREATERICHTEXTITEM("body")
Set rtstyle = session.CREATERICHTEXTSTYLE
rtstyle.FontSize = 50
Call rtitem.AppendStyle(rtstyle)
Call rtitem.AppendText(sText) 'Text
Ist jetzt bloß der entscheidende Codeschnipsel um es übersichtlich zu halten, "sText" = String (meine Nachricht), rtitem und rtstyle = object
Ganz egal was ich bei rtstyle angebe, FontSize, NotesColor usw. er behält die Standardformatierung des Textes bei.
Auch wenn ich "AppendStyle" erst nach "AppendText" platziere passiert gar nichts...
Habt ihr eine Idee was ich falsch mache?
Grüße und danke für eure Hilfe,
Chris
|