Text mit AppendText in RTFeld einlesen

[birdy]

Hallo,

verzweifle gleich an diesem blöden Richtext-Feld.

Rufe über einen Button eine Ansicht auf (Picklist). In dieser Ansicht stehen Dokumente mit zwei Feldern. Das eine Feld ist ein ganz normales Textfeld, das andere eine Dialogliste.

Der User wählt ein oder mehrere Dokumente aus der Ansicht aus und dann sollen die Inhalte dieser beiden Felder in ein Richtext-Feld in meinem UI-doc übertragen werden.

Mein Skript sieht bisher folgendermaßen aus:

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim currdoc As NotesDocument   
   Dim doc As NotesDocument
   Dim col As NotesDocumentCollection
   
   Set uidoc = ws.CurrentDocument
   Set currdoc = uidoc.Document   
   
   Set rtitem = currdoc.GetFirstItem("Test")
   If rtitem.Type <> RICHTEXT Then
      Messagebox "Not rich text"
      Exit Sub
   End If
      
   Set col = ws.PickListCollection(1, True, Servername, DatabaseFileName, "PicklistName", "PicklistTitle", "Bitte auswählen:")
   
   Set doc = col.GetFirstDocument
   While Not (doc Is Nothing)
       Call rtitem.AppendText(doc.Textfeld(0))
       Call doc.Save(True, False)
       Set doc = col.GetNextDocument (doc)
   Wend
   
End Sub

Kann mir bitte jemand sagen, ob an dem Skript was falsch ist oder ob ich irgendwas vergessen habe?

Wenn ich das ganze debugge, funktioniert es soweit, dass der Inhalt des Textfeldes notiert wird. Nur leider wird der Text nicht in meinem RichText sichtbar.

Bin für jede Hilfe superdankbar!

[Axel]

Hi,

zum einen vermisse ich die DIM - Anweisung für rtitem

Dim rtitem As NotesRichtextItem

Das ist aber nicht das Problem.

RTF-Felder haben die Eigenheit, dass deren Inhalt, wenn per Script eingefügt, erst nach dem Speichern und erneutem Öffnen angeziegt wird. Ich hab bisher auch noch keinen Weg drumrum gefunden, der sauber funktioniert.


Axel