Hallo,
ich erstelle in vielen Datenbanken Infomails. Funktioniert auch wunderbar, aber sie haben einen kleinen Schönheitsfehler.
Die Mails bringen den Text mit unschönen Zeilenumbrüchen.
Dim Maildockey As NotesDocument
Dim RTFieldkey As NotesRichTextItem
Set maildockey = db.CreateDocument
Set rtfieldkey = maildockey.CreateRichTextItem("Body")
maildockey.Categories = "Mitarbeiterveränderungen"
maildockey.Form = "Memo"
maildockey.Subject = "Überwachung Schlüsselrückgabe per "+Cstr(doc.AustrittZum(0))+" Mitarbeiteraustritt: "+doc.MAName(0)
Call RTFieldkey.AppendText("Mitarbeiteraustritt: "+doc.MAName(0) )
Call rtfieldkey.AddNewLine(1)
Call rtfieldkey.AppendText("Abteilung: "+doc.Abt(0)+" - "+doc.AbtName(0))
Call rtfieldkey.AddNewLine(1)
usw.
Mein Ziel ist eigentlich Fließtext und der Client soll selbst umbrechen.
Ich finde aber in NotesRichtextItem keine Methode oder Property mit der ich die Zeilenlänge beeinflussen kann.
In NotesRichtextParagraphStyle gibt es RightMargin, in der ich den rechten Rand in cm festlegen kann.
Aber auch nicht das was ich mir eigentlich vorstelle. Oder verlange ich von LS zu viel?
Bye,
Markus