LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Set db = s.CurrentDatabase Set view = db.GetView("Topics") If view.BackgroundColor = COLOR_LIGHT_GRAY Then view.BackgroundColor = COLOR_YELLOW Messagebox "Yellow",, "New color is ..." Elseif view.BackgroundColor = COLOR_YELLOW Then view.BackgroundColor = COLOR_WHITE Messagebox "White",, "New color is ..." Else view.BackgroundColor = COLOR_LIGHT_GRAY Messagebox "Light gray",, "New color is ..." End If End Sub
See Also