例: DisplayMeetingSuggestions property

次のフォームアクションは、DisplayMeetingSuggestions プロパティを切り替えます。

%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