Hallo,
ich bastel an einer Anwendung, die per Mail Informationen an einen Reisebüro senden soll.
Damit die Daten leichter lesbar sind, wollte ich diese in eine Tabelle stecken.
Dazu habe ich ein RTI erstellt, in dem ich eine Tabelle (appendtable) eingebaut habe. Da die Spalten unterschiedlich groß sein sollen, habe ich einen NotesRichTextParagraphStyle erstellt. Das Ergebnis ist nun, dass die Spalten die richtige Größen haben, aber der Text den ich in die Zellen von der Formatierung nicht passen.
NRTParagraphStyle für die Spalten in der Tabelle Reisedaten
Dim rtpsCols3(5) As NotesRichTextParagraphStyle
Set rtpsCols3(0) = session.CreateRichTextParagraphStyle
rtpsCols3(0).Alignment = 0
rtpsCols3(0).Leftmargin = 0
rtpsCols3(0).RightMargin = RULER_ONE_CENTIMETER * 3
Set rtpsCols3(1) = session.CreateRichTextParagraphStyle
rtpsCols3(1).Alignment = 0
rtpsCols3(1).Leftmargin = 0
rtpsCols3(1).RightMargin = RULER_ONE_CENTIMETER * 3
Set rtpsCols3(2) = session.CreateRichTextParagraphStyle
rtpsCols3(2).Alignment = 0
rtpsCols3(2).Leftmargin = 0
rtpsCols3(2).RightMargin = RULER_ONE_CENTIMETER * 3
Set rtpsCols3(3) = session.CreateRichTextParagraphStyle
rtpsCols3(3).Alignment = 0
rtpsCols3(3).Leftmargin = 0
rtpsCols3(3).RightMargin = RULER_ONE_CENTIMETER * 3
Set rtpsCols3(4) = session.CreateRichTextParagraphStyle
rtpsCols3(4).Alignment = 0
rtpsCols3(4).Leftmargin = 0
rtpsCols3(4).RightMargin = RULER_ONE_CENTIMETER * 3
Set rtpsCols3(5) = session.CreateRichTextParagraphStyle
rtpsCols3(5).Alignment = 0
rtpsCols3(5).Leftmargin = 0
rtpsCols3(5).RightMargin = RULER_ONE_CENTIMETER * 3
Aufbau der Tabelle Reisedaten
Call reisedaten.AppendTable(3,6,"",1440,rtpsCols3)
Set rtnav = reisedaten.CreateNavigator
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
Call reisedaten.AppendStyle(rtsTableHeader)
For i = 0 To 5
Call reisedaten.BeginInsert(rtnav)
Call reisedaten.AppendText(reisedatenlabel(i))
Call reisedaten.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Next
Call reisedaten.AppendStyle(rtsTableRow)
Call reisedaten.BeginInsert(rtnav)
Call reisedaten.AppendText("Hinreise")
Call reisedaten.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Call reisedaten.BeginInsert(rtnav)
Call reisedaten.AppendText(Cstr(tag1.DateOnly))
Call reisedaten.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Call reisedaten.BeginInsert(rtnav)
Call reisedaten.AppendText(Cstr(uhr1.TimeOnly))
Call reisedaten.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
{usw. ....}
Das RTI mit der Tabelle binde ich dann im Maildokument per appendrtitem mit ein (ich hab noch andere RTI mit Personendaten, etc. die ich der einfachheithalber zwecks Positionierung des Cursors in der Tabelle aufgesplittet habe).
Die Tabelle wird wie im JPG ersichtlich erstellt, aber die Textformatierung passt nicht. Eigentlich sollten die Zellen linksbündig mit linkem Rand 0 erstellt sein.
Das nächste Problem. Nach dem letzten RTI, das ich in den Mailbody eingebunden habe, sollte der nachfolgende Text (Grußformel, etc.) als normaler Text geschrieben sein. Aber der Mailbody übernimmt den ParagraphStyle des letzten Tabellen RTIs. Wie kann ich das abschalten?
Bye,
Markus