Torna al Thread

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
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5