LOTUSSCRIPT/COM/OLE CLASSES
%INCLUDE "lsconst.lss"
Sub Click(Source As Button) Dim ws As NotesUIWorkspace Dim uid As NotesUIDocument Dim uis As NotesUIScheduler Set ws = New NotesUIWorkspace Set uid = ws.CurrentDocument Set uis = uid.GetSchedulerObject("Main") If Messagebox("Do you want to change this setting?", _ MB_YESNO + MB_QUESTION, _ "DisplayParticipantStatus is " + _ uis.DisplayParticipantStatus) = IDYES Then uis.DisplayParticipantStatus = NOT uis.DisplayParticipantStatus End If End Sub
See Also