LOTUSSCRIPT/COM/OLE CLASSES


Examples: HeaderFontFace property
This agent toggles the header font face between Helvetica and Default Sans Serif.

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

See Also