LOTUSSCRIPT/COM/OLE CLASSES

Examples: GetParticipants method
This form action displays the required and optional people on an embedded scheduled.

%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