Automate Scheduler Using Macros

Chapter 5: MethodsDiscussionThe default mail standard is MAPI. However, you can modify the Sendcapability to use your own multi-use OLE component so you can sendinformation via your own system. For more information, see Scheduleronline Help.ParameterFilenameDescriptionOptional (for remote result sets only).Specifies the filename of the exportedresults.Type: StringReturn TypeEmptyExampleThis example enables the user to send the results of a completed taskthat generated a snapshot or exported results.Sub Main()Dim objSchedApp As ObjectDim objCompletedTasks As ObjectDim objCompletedTask As ObjectDim intCounter As IntegerDim strTaskDescription As StringSet objSchedApp = CreateObject("CognosBatcher.Application")Set objCompletedTasks = objSchedApp.Completed'this loop will start with the most recently completed tasksFor intCounter = objCompletedTasks.Count To 1 Step -1With objCompletedTasks.Item(intCounter)Set objCompletedTask = _objCompletedTasks.Item(intCounter).SchedulestrTaskDescription = objCompletedTask.ScheduleDescriptionIf .Schedule.CreateSnapshot = True Or _.Schedule.ExportAs = True ThenintResponse = MsgBox("Send the results of this task" & _"?" & Chr(13) & strTaskDescription, _292, "Send Results")If intResponse = 6 Then'send the results of the task.SendResultsEnd IfEnd IfEnd WithNext intCounterSet objCompletedTask = NothingSet objCompletedTasks = NothingSet objSchedApp = NothingEnd SubAutomate Scheduler Using Macros 37