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

関連項目

SchedulerName プロパティ

用語集