例: HeaderFontFace property (NotesViewColumn - LotusScript®)

次のエージェントは、ヘッダーのフォントを Helvetica から Default Sans Serif (Default Sans Serif から Helvetica) に切り替えます。

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.HeaderFontFace = "Default Sans Serif" Then
    vc.HeaderFontFace = "Helvetica"
  Else
    vc.HeaderFontFace = "Default Sans Serif"
  End If
  Messagebox vc.FontFace,, "Font face changed to ..."
End Sub