1

ReportServerにレポートが既に設定されています。そしてそのサブスクリプションも。私がやろうとしているのは、ParameterValue "CC"といくつかの電子メールアドレスを追加してから、電子メールを送信することです。うまくいかないようです。

私のコード：

Dim emailReader As SqlDataReader = selCount.ExecuteReader
Dim emailsTest As List(Of String) = New List(Of String)
emailsTest.Add("test1@pen.com")
emailsTest.Add("test2@pen.com")
emailsTest.Add("test3@pen.com")
emailsTest.Add("test4@pen.com")
If emailReader.HasRows() Then 'checks to see if there any quotes in query

    For Each subscrp As rs.Subscription In subscr
        Dim allValues = subscrp.DeliverySettings.ParameterValues
        Dim allValuesList As List(Of ReportTriggerTemplate1.rs.ParameterValueOrFieldReference) = allValues.ToList()
        Dim CCParameter As ReportTriggerTemplate1.rs.ParameterValue = New ReportTriggerTemplate1.rs.ParameterValue()
        CCParameter.Name = "CC"
        CCParameter.Value = String.Empty
        allValuesList.Add(CCParameter)
        Dim toValue = CType(allValuesList.Item(7), ReportTriggerTemplate1.rs.ParameterValue)

        For Each testEmail As String In emailsTest
            Dim ownerEmail As String = testEmail
            If toValue.Value.Contains(ownerEmail) Then
                'skip
            ElseIf toValue.Value = String.Empty Then
                toValue.Value += ownerEmail
            Else
                toValue.Value += "; " & ownerEmail
            End If
        Next
        subscrp.DeliverySettings.ParameterValues = allValuesList.ToArray()
        Dim hello As String = "hi"
        tr.FireEvent(EventType, subscrp.SubscriptionID) 'forces subscription to be sent
    Next

toValue.Valueに追加しているものは、レポートのCCサブスクリプションフィールドにまったく追加されていないようです。だから私は何が欠けていますか？

4

1 に答える 1

1

http://msdn.microsoft.com/en-us/library/ms154020%28v=SQL.100%29.aspx

http://msdn.microsoft.com/en-us/library/reportservice2005.reportingservice2005.getsubscriptionproperties.aspx

http://msdn.microsoft.com/en-us/library/reportservice2005.reportingservice2005.setsubscriptionproperties%28v=SQL.105%29.aspx 

 Try
        tr = New rs.ReportingService2005
        Dim extSettings As ExtensionSettings = Nothing
        Dim desc As String = Nothing
        Dim active As ActiveState = Nothing
        Dim status As String = Nothing
        Dim matchData As String = Nothing
        Dim values As ParameterValue() = Nothing
        Dim extensionParams As ParameterValueOrFieldReference() = Nothing

        Dim mainLogin As System.Net.NetworkCredential = New System.Net.NetworkCredential("ADUser", "Password", "NetworkName")
        If mainLogin Is Nothing Then
            tr.Credentials = System.Net.CredentialCache.DefaultCredentials
        Else
            tr.Credentials = mainLogin
        End If

'関連するコードにスキップ

        For Each subscrp As rs.Subscription In subscr

                Dim allValues = subscrp.DeliverySettings.ParameterValues
                Dim allValuesList As List(Of ReportTriggerTemplate1.rs.ParameterValueOrFieldReference) = allValues.ToList()

                If CType(allValuesList.Item(0), ReportTriggerTemplate1.rs.ParameterValue).Value = "test@pen.com" Then
                    Dim subsID = subscrp.SubscriptionID
                    'important code just below
                    tr.GetSubscriptionProperties(subsID, extSettings, desc, active, status, EventType, matchData, extensionParams)

                    ''''add change to CC here
                    Dim extSettingsList As List(Of ReportTriggerTemplate1.rs.ParameterValueOrFieldReference) = extSettings.ParameterValues.ToList()
                    If CType(extSettingsList.Item(1), ReportTriggerTemplate1.rs.ParameterValue).Name = "CC" Then
                        If CType(extSettingsList.Item(1), ReportTriggerTemplate1.rs.ParameterValue).Value = String.Empty Then
                            CType(extSettingsList.Item(1), ReportTriggerTemplate1.rs.ParameterValue).Value = emailsTest.Item(0) & ";" & emailsTest.Item(1)
                        Else
                            CType(extSettingsList.Item(1), ReportTriggerTemplate1.rs.ParameterValue).Value += ";" & emailsTest.Item(0) & ";" & emailsTest.Item(1)
                        End If
                    Else
                        Dim CCParameter As ReportTriggerTemplate1.rs.ParameterValue = New ReportTriggerTemplate1.rs.ParameterValue()
                        CCParameter.Name = "CC"
                        CCParameter.Value = emailsTest.Item(0) & ";" & emailsTest.Item(1)
                        extSettingsList.Insert(1, CCParameter)
                        extSettings.ParameterValues = extSettingsList.ToArray
                    End If
                    'important code just below
                    tr.SetSubscriptionProperties(subsID, extSettings, desc, EventType, matchData, extensionParams)

                    tr.FireEvent(EventType, subscrp.SubscriptionID) 'forces subscription to be sent

                Else


                End If

         Next
于 2011-01-05T19:28:36.950 に答える