LOTUSSCRIPT/COM/OLE CLASSES
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") Call DisplayName(uis) End Sub Sub DisplayName(uis As NotesUIScheduler) Messagebox uis.SchedulerName,, "Scheduler name" End Sub
See Also