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) vc.IsFontUnderline = NOT vc.IsFontUnderline End Sub
See Also