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.FontColor = COLOR_BLACK Then
   vc.FontColor = COLOR_BLUE
 Else
   vc.FontColor = COLOR_BLACK
 End If
End Sub

関連項目

FontColor プロパティ

用語集