LOTUSSCRIPT/COM/OLE CLASSES

Examples: HeaderFontColor property
This agent toggles the font color between black and blue.

Sub Initialize
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim vc As NotesViewColumn
 Set db = session.CurrentDatabase
 Set view = db.GetView("Categorized")
 Set vc = view.Columns(0)
 If vc.HeaderFontColor = COLOR_BLACK Then
   vc.HeaderFontColor = COLOR_BLUE
 Else
   vc.HeaderFontColor = COLOR_BLACK
 End If
End Sub

See Also