LOTUSSCRIPT/COM/OLE CLASSES
Examples: DisplayMeetingSuggestions property
This form action toggles the DisplayMeetingSuggestions property.

%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, _
 "DisplayMeetingSuggestions is " + _
 uis.DisplayMeetingSuggestions) = IDYES Then
   uis.DisplayMeetingSuggestions = NOT uis.DisplayMeetingSuggestions
 End If
End Sub

See Also