AppendText Problemchen...

[rar]

Hallo Leute!
Ich habe da auch ein kleines Problem.
Ich möchte in meiner MailDB ein Unterschriftsbutton machen, der mit Script den Unterschriftstext an der aktuellen Cursorposition einfügt. So wie '@Command(EditInsertText)' nur in Script eben. AppendText fügt ihn ja leider nur unten an.
Vielleicht hat ja jemand von euch eine Idee.
lg
-rar

[eknori]

Aus der Notes Designer Hilfedatei  

Inserts a text value at the current cursor position on a document.

Defined in

NotesUIDocument

Syntax

Call notesUIDocument.InsertText( textValue$ )

Parameter

textValue$

String. The value you want to insert.

Usage
This method is valid only when the document is in Edit mode.

[rar]

Hi eknori!
Danke für die Hilfe. Leider hilft sie mir bei meinem Problem nicht weiter.
Es ist nämlich so:
Die Unterschrift sollte in blauer schrift sein, der Name fett,...
Dazu brauch ich ein rtitem und den rtstyle. Mit InsertText kann ich nur simplen Text einfügen.  :-/

[eknori]

Dafür gibt es doch die NotesRichTextStyle class .
In Verbindung mit InsertText sollte das funktionieren.


eknori

[rar]

Eigentlich schon. Aber es funktioniert nicht. Zur Zeit scheut der Button so in der art aus:

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim style As NotesRichTextStyle      
Set uidoc = ws.CurrentDocument
Call uidoc.save()      
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem("Body")
If Not rtitem Is Nothing Then      
     Set Style = session.CreateRichTextStyle
     Style.NotesColor = COLOR_DARK_BLUE
     Call rtitem.AppendStyle(Style)
     Call uidoc.InsertText("Der blaue Text1")
     Call rtitem.AppendText("Der blaue Text2")
     Call doc.save(True,True)
     Set uidoc = ws.EditDocument( True,doc )
End If

Ich bin auf folgende Probleme gestoßen:
1.) Wenn ich das uidoc nicht abspeicher (das erste mal) ist das rtitem Nothing  
2.) die Zeile 'Call uidoc.InsertText("Der blaue Text1")' schreibt den Text schwarz hin. (Da der schwarze Text vorher nicht abgesdpeichert wurde, fehlt er natürlich im zweiten geöffneten Dokument)
3.) Ich muß das doc ein zweites mal abspeichern, wenn ich das rtitem aktualisieren möchte  
4.) Wenn ich einmal die Unterschrift gedrückt habe, das mail aber dann verschmeißen möchte, bleibt es trotzdem in den Entwürfen drin, weil ich es ja abgespeichert habe.

Ganz eine blöde Sache