Hallo Leute,
wie kann ich am besten den Inhalt eines RichText-Feldes in einem geöffneten Dokument mittels LotusScript aktualisieren?
Ich hab schon alles Mögliche probiert z.B. mit reload aus der NotesUIDocument-Klasse.
Bis jetzt lassen sich RichText-Felder nur dadurch refreshen indem man das Docu schließt und wieder öffnet. Aber das ist kein befriedigende Lösung.
Vielleicht hat jemand einen Tipp!
Vielen Dank schon mal!
Servus Chrysch
wie kann ich am besten den Inhalt eines RichText-Feldes in
einem geöffneten Dokument mittels LotusScript aktualisieren?Ich hab schon alles Mögliche probiert z.B. mit reload aus der
NotesUIDocument-Klasse.
Bis jetzt lassen sich RichText-Felder nur dadurch refreshen
indem man das Docu schließt und wieder öffnet. Aber das ist
kein befriedigende Lösung.
Tut mir leid, aber „that’s not a bug, but a feature“. 
Wenn ich mich nicht täusche, geht es wirklich nicht anders und müsste in der Designer-Hilfe auch so dokumentiert sein.
Ciao
Thomas Bahn
Das gab’s doch schon mal, Wenn du im Dokument bist kannst du das auf die folgende Art und Weise erreichen:
Script stammt aus einer Lösung die ich vor zwei Jahren im Notes.Net veröffentlich habe, um zwei Richtextfelder in einer MAske anzugleichen.
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim rt1 As NotesRichTextItem
Dim rt2 As NotesRichTextItem
Dim w As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = w.CurrentDocument
Set doc = uidoc.document
Set db = s.currentdatabase
Call uidoc.save()
Call uidoc.close
Set RT1 = doc.getfirstitem(„RTF1“)
Set RT2 = doc.getfirstitem(„RTF2“)
’ check if they are really RT items
If ( RT1.Type = RICHTEXT And _
RT2.Type = RICHTEXT ) Then
’ move the rtitem1 to the rtitem2
Call rt1.AppendRTItem( rt2 )
’ add a single line to the rtitem1 so that the next append is in a new line
Call rt1.AddNewLine( 1 )
’ delete the other rtitem
Call rt2.Remove
End If
docUNID = doc.UniversalID
’ doc.form = „frmCheckList“
Call doc.Save(False, False)
'Set save options to zero so that user does not get prompted to save after closing uidoc
doc.saveoptions = „0“
Call uidoc.close
'Find the document again based on UNID and open it up
Set doc = db.GetDocumentByUNID(docUNID)
Set uidoc = w.Editdocument(True, doc)
'Reset doc and set saveoptions back to „1“
Set doc = uidoc.document
doc.saveoptions = „1“
End Sub