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") participants = uis.GetParticipants( _ REQUIRED_PEOPLE + OPTIONAL_PEOPLE) If Isempty(participants) Then Messagebox "Participant list empty",, "No participants" Exit Sub End If displayList = "" Forall participant In participants If displayList = "" Then displayList = participant Else displayList = displayList & Chr(13) & participant End If End Forall If displayList <> "" Then Messagebox displayList,, "List of participants" End If End Sub
See Also