Hmm komme nicht weiter habe bis jetzt das hier.
Dim s As New NotesSession
Dim db As NotesDatabase
' Dim view As NotesView
Dim docCol As NotesDocumentCollection
Dim doc As NotesDocument
Dim myNavigator As NotesRichTextNavigator
Set db = s.currentDatabase
Set docCol = db.AllDocuments
Set doc = docCol.GetFirstDocument
Dim rtItem As NotesRichTextItem
Set rtItem = doc.GetFirstItem("body")
Set myNavigator = rtItem.CreateNavigator
aber wie komme ich an die einzelnen Zellen. Zum brechen im Moment. Immer dumm wenn man den Wald vor lauter Bäumen nicht sieht