LOTUSSCRIPT/COM/OLE CLASSES

Examples: RemoveParticipants method
This form action removes participants from the embedded scheduling data.

%INCLUDE "lsconst.lss"

Sub Click(Source As Button)
 Dim ws As NotesUIWorkspace
 Dim uid As NotesUIDocument
 Dim uis As NotesUIScheduler
 Dim removeList() As String
 Dim n As Integer
 Set ws = New NotesUIWorkspace
 Set uid = ws.CurrentDocument
 Set uis = uid.GetSchedulerObject("Main")
 participants = uis.GetParticipants( _
 REQUIRED_PEOPLE + OPTIONAL_PEOPLE)
 If Isempty(participants) Then Exit Sub
 n = 0
 Forall participant In participants
   If Messagebox("Do you want to remove this participant?", _
   MB_YESNO + MB_QUESTION, _
   participant) = IDYES Then
     Redim Preserve removeList(n)
     removeList(n) = participant
     n = n + 1
   End If
 End Forall
 Call uis.RemoveParticipants(removeList)
End Sub

See Also