man kann sich nur den Text ausgeben lassen. Dann sind alle Formatierungen im Notesvana
.
plainText$ = notesRichTextItem.GetFormattedText( tabstrip, lineLength% )
Warum Du mit AppendStyle, AppendRTItem und AppendText nicht klarkommst, versteh ich nicht. Schau doch mal bitte ein Beispiel aus der Notes Help an. Ich mein gut, AppenRTItem bringt nicht viel, weil Du sagst ja, daß die auch keine Formatierungen haben, ah jou, gut, dann wie gesagt über getformattedtext plätten und schön sauber Stile definieren vor die Stellen, wo man die Inhalte ins neue Body reinkopiert:
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue _
("From", session.UserName)
Call doc.AppendItemValue _
("Subject", Inputbox("Subject?"))
Call doc.AppendItemValue _
("Categories", Inputbox("Category?"))
Dim richStyle As NotesRichTextStyle
Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_COURIER
richStyle.FontSize = 14
Dim richText As New NotesRichTextItem(doc, "Body")
Call richText.AppendStyle(richStyle)
newPara = Inputbox _
("Paragraph of text for ""Body"" item")
firstPara = True
While newPara <> ""
If firstPara Then
firstPara = False
Else
Call richText.AddNewLine(2)
End If
Call richText.AppendText(newPara)
newPara = Inputbox _
("Paragraph of text for ""Body"" item")
Wend
Call doc.Save(True, False)
End Sub
