Ich glaube da bin ich sogar mal drüber gestolpert. Aber das mit dem Body-Item (doc.GetFirstItem("Body")) verstehe ich nicht ganz. Muss meine Section innerhalb eines anderen Elements namens Body liegen oder wie darf ich das verstehen? Wenn ich den Code verwende, sagt mir der Debugger, dass er das Objekt nicht kennt.
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim doc As NotesDocument
Set doc = dc.GetFirstDocument
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("Body")
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
Messagebox "Body item does not contain a section,",, "Error"
Exit Sub
End If
Dim rts As NotesRichTextSection
Do
Set rts = rtnav.GetElement
Messagebox "Bar color = " & rts.BarColor.NotesColor & Chr(13) & _
"Is expanded = " & rts.IsExpanded & Chr(13) & _
"Title style font = " & rts.TitleStyle.NotesFont _
,, rts.Title
Loop While rtnav.FindNextElement(RTELEM_TYPE_SECTION, 1)
End Sub
PS: Ich bin Lotus-Neuling, also habt Verständnis für meine Anfänger-Fragen :-)