Dim oServerAdmin As DSSServerAdmin
Dim sAdmin As IDSSScheduleAdministrator3
Dim mesage As String
Set oServerAdmin = MySession.ServerAdmin
Set sAdmin = oServerAdmin.ScheduleAdministrator
sAdmin.FireEvent "66E860724E8E124E07E658A36ACAEC9B"
CUSTOMIZATION WARNING: This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. In the event of a code change in future builds, Strategy may not be able to provide additional code on this matter even though this customization is provided at this time for this specific build. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy consulting assistance. 
