Text von einem Richtextfeld auf eine Seite zuschneiden.

[Lancelot]

Hallo Leute,

ich trete hier auf der Stell.
Hab im forum auch ncihts passendes gefunden. (
Mein Problem ist:

Ich habe eine DB die Projekte verfolgt.
Dort befindet sich oben eine Tabelle mit Projektangaben und darunter ein Richtextfeld,
welches die Korrespondenz zum Projekt beinhaltet.
In dem Richtextfeld steht der neuste Eintrag immer oben.
Versendet wird an die im Projekt berechtigten User ein Doclink.

Nun im Zeitalter der BlackBerrys muß ich nicht nur den Doclink, sondern auch das Projekt selber in das Email kopieren, dass man dies
auch am BlackBerry lesen kann.
Funktioniert auch prima.

Da dort aber mehrere Seiten Text eingetragen sein können, soll der Text auf eine Seite zugeschnitten werden.
Anhänge etc werden ignoriert.

Mit der NotesRichTextNavigator Klasse kann ich die Textzeilen mit dem Element "RTELEM_TYPE_TEXTRUN" zählen, aber ich weiß nicht wie
ich die Zeilen dann in das Email bringe?
Dachte mir mit einer Tabelle, aber habe ich den auch Zugriff mit der Klasse auf die einzelnen Textzeilen.?
Bisher bringt mir die Klasse nur die Anzahl der Textzeilen zurück.
 
Bin für jede Art der Hilfe dankbar.

[Demian]

Moin,moin,

wenn ich dich richtig verstanden habe, könnten dir die Beispiele von "Working with text in LotusScript classes" eventuell weiterhelfen. Da wird der Text mit folgender Schleife ausgelesen.

Code

 If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
    Set rtrange = body.CreateRange
    count% = 0
    Do
      count% = count% + 1
      msg$ = ""
      REM Set range for paragraph and display it
      Call rtrange.SetBegin(rtnav)
      msg$ = rtrange.TextParagraph
      Messagebox msg$,, "Paragraph " & count%
    Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
  Else
    Messagebox "No text in Body",, "No text"
  End If

[Lancelot]

Danke Demian,

genau das habe ich gebraucht.   

Vielen Dank!