Database

Dim RS As New ReportingService2005
    RS.Credentials = System.Net.CredentialCache.DefaultCredentials
    RS.Url = "HTTP://VIROSQL08/REPORTSERVER/REPORTSERVICE2005.ASMX"


    Dim report As String = "/MYREPORTS/TEST_REPORT"
    Dim desc As String = "TEST SCHEDULE"
    Dim eventType As String = "TimedSubscription"
    Dim StartDateSchedule As String = Today.ToString("yyyy-MM-dd")
    Dim StartClockSchedule As String = "09:27"

    Dim scheduleXml As String = String.Format("<ScheduleDefinition><StartDateTime>{0}T{1}:00</StartDateTime></ScheduleDefinition>", StartDateSchedule, StartClockSchedule)

    Dim extensionParams(7) As ParameterValue

    extensionParams(0) = New ParameterValue()
    extensionParams(0).Name = "TO"
    extensionParams(0).Value = "CED@MYCOMPANY.COM"

    extensionParams(1) = New ParameterValue()
    extensionParams(1).Name = "ReplyTo"
    extensionParams(1).Value = "reporting@adventure-works.com"

    extensionParams(2) = New ParameterValue()
    extensionParams(2).Name = "IncludeReport"
    extensionParams(2).Value = "True"

    extensionParams(3) = New ParameterValue()
    extensionParams(3).Name = "RenderFormat"
    extensionParams(3).Value = "EXCEL"

    extensionParams(4) = New ParameterValue()
    extensionParams(4).Name = "Subject"
    extensionParams(4).Value = "@ReportName was executed at @ExecutionTime"

    extensionParams(5) = New ParameterValue()
    extensionParams(5).Name = "Comment"
    extensionParams(5).Value = "TEST SCHEDULE"

    extensionParams(6) = New ParameterValue()
    extensionParams(6).Name = "IncludeLink"
    extensionParams(6).Value = "False"

    extensionParams(7) = New ParameterValue()
    extensionParams(7).Name = "Priority"
    extensionParams(7).Value = "NORMAL"

    Dim parameter As New ParameterValue()
    parameter.Name = "PARAM1"
    parameter.Value = "1"
    parameter.Label = "PARAM1"

    Dim parameters(1) As ParameterValue
    parameters(0) = parameter

    Dim matchData As String = scheduleXml
    Dim extSettings As New ExtensionSettings()
    extSettings.ParameterValues = extensionParams
    extSettings.Extension = "Report Server Email"

    Try
      RS.CreateSubscription(report, extSettings, desc, eventType, matchData, parameters)


    Catch e As SoapException

      Console.WriteLine(e.Detail.InnerXml.ToString())

    End Try