Formtierten Text in Rich-Text-Feld einfügen

In Script keine chance, mit einen Aktion, ebenso keine chance.. aber mit ein Smarticon wäre so etwas möglich.

Und zwar mit der FORMEL sprache.

Warum es nicht mit Script oder mit einen aktion geht ? Weil damit der FOCUS weg ist, und damit keine möglichkeit mehr existiert zu bestimmen wo es hingehen sollte.

Mit der Formelsprache und ein smarticon geht das z.B. wie folgt:
@Command([TextSetFontSize]; "10");
@Command([TextNormal]);
@Command([TextSetFontColor]; [Red]);
@Command([TextBold]);
@Command([EditInsertText]; @NewLine + @NewLine +"R");
@Command([TextSetFontColor]; [Blue]);
@Command([EditInsertText]; "u");
@Command([TextSetFontColor]; [DarkGreen]);
@Command([EditInsertText]; "d");
@Command([TextSetFontColor]; [Brown]);
@Command([EditInsertText]; "i");
@Command([TextSetFontColor]; [DarkCyan]);
@Command([EditInsertText]; "- ");
@Command([TextSetFontColor]; [Magenta]);
@Command([EditInsertText]; "W");
@Command([TextSetFontColor]; [Red]);
@Command([EditInsertText]; "a");
@Command([TextSetFontColor]; [Blue]);
@Command([EditInsertText]; "s");
@Command([TextSetFontColor]; [DarkGreen]);
@Command([EditInsertText]; "-");
@Command([TextSetFontColor]; [Brown]);
@Command([EditInsertText]; "H");
@Command([TextSetFontColor]; [DarkCyan]);
@Command([EditInsertText]; "e");
@Command([TextSetFontColor]; [Magenta]);
@Command([EditInsertText]; "r");
@Command([TextSetFontColor]; [DarkMagenta]);
@Command([EditInsertText]; "e");

Bitte in Zukunft aufs Themenpräfix achten

Ich setze den Thread mal auf erledigt

Hallo Ronka!

Wenn sich innerhalb der Maske mehrere RT-Felder befinden, woher weiß deine Formel denn dann, in welchem Feld sie den Text einfüfen soll?
Kann man nicht vielleicht einen Button nehmen und das RT-Feld direkt anspringen und dort den Cursor an's Ende setzen?

... ach ja, und warum kann man eigentlich nicht das RichTextItem aus LotusScript verwenden. Wenn man keine Formatierung benötigt, geht es dann damit?

Hallo!

Meine Routine sieht so aus. Allerdings erscheint zum Schluß nix im Feld. Hab ich was vergessen?

Sub Kommentar(feldname As String)
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
Set se = New NotesSession
Set rtitem = doc.GetFirstItem(feldname )

If rtitem.Type = RICHTEXT Then
comment = Inputbox( "Bitte geben Sie Ihren Kommentar ein!" , "Kommentar" )
Eingabe = Cstr(Today) + " - " + se.CommonUserName + ": " + comment
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText ( Eingabe)
End If
Call doc.Save( False, True )
End Sub

Aha.
Mal angenommen, da soll eh nur Text rein, dann könnte man ja auch ein "normales" Textfeld nehmen und mit AppendTextList arbeiten. Wieviel Text kann man denn dann (in Zeilen) darin unterbringen???