Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim dc As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim body As NotesRichTextItem
 Dim rtnavBody As NotesRichTextNavigator
 Dim rtrangeTable As NotesRichTextRange
 Dim style As NotesRichTextStyle
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 Set doc = dc.GetFirstDocument
 Set body = doc.GetFirstItem("Body")
 REM Get first table in Body item
 REM Set range for it
 Set rtnavBody = body.CreateNavigator
 If Not rtnavBody.FindFirstElement(RTELEM_TYPE_TABLE) Then
   Messagebox "Body item does not contain a table,",, _
   "Error"
   Exit Sub
 End If
 Set rtrangeTable = body.CreateRange
 Call rtrangeTable.SetBegin(rtnavBody)
 Call rtrangeTable.SetEnd(rtnavBody)
 REM Get style of first text run in table
 Set style = rtrangeTable.Style
 REM Toggle color between blue and red
 If style.NotesColor = COLOR_BLUE Then
   style.NotesColor = COLOR_RED
 Else
   style.NotesColor = COLOR_BLUE
 End If
 REM Set table to new color
 Call rtrangeTable.SetStyle(style)
 Call doc.Save(True, True, True)
End Sub

See Also

Style property

Glossary