Как я могу исправить «Ошибка: Исключение было сгенерировано целью вызова».Ошибка при отправке задачи скрипта SSIS на несколько писем - PullRequest
Новая
       34

Как я могу исправить «Ошибка: Исключение было сгенерировано целью вызова».Ошибка при отправке задачи скрипта SSIS на несколько писем

1 голос
/ 03 апреля 2019

Я настраиваю оповещение по электронной почте, используя задачу скрипта SSIS. Код работает, когда поле CC содержит только одно электронное письмо, но получает

"Ошибка: исключение было выдано целью вызова."

для нескольких писем.

Это извлекает данные из представления в базе данных SQL. Я попробовал код только с одним письмом, и оно сработало, но выдает ошибку для нескольких писем в поле CC Я попытался добавить "" в столбце CC, но все еще не работает. 

"xxx@company.com,yyy@company.com"
xxx@company.com,yyy@company.com

Это то, что у меня есть в SSIS

SSIS Package

variables

Public Sub Main()

    Dim htmlMessageFrom As String =
Dts.Variables("From").Value.ToString
    Dim htmlMessageTo As String =
Dts.Variables("To").Value.ToString
    Dim htmlMessageCc As String =
Dts.Variables("CC").Value.ToString
    Dim htmlMessageSubject As String =
Dts.Variables("Subject").Value.ToString
    Dim htmlMessageBody As String =
Dts.Variables("Body").Value.ToString
    Dim smtpConnectionString As String =
DirectCast(Dts.Connections("SMTP Connection 
Manager").AcquireConnection(Dts.Transaction), String)
    Dim smtpServer As String =
smtpConnectionString.Split(New Char() {"="c, ";"c})(1)

    SendMailMessage(
  htmlMessageFrom, htmlMessageTo, htmlMessageCc,
  htmlMessageSubject, htmlMessageBody,
  True, smtpServer)

    Dts.TaskResult = ScriptResults.Success

End Sub

Private Sub SendMailMessage(
ByVal From As String, ByVal SendTo As String,
ByVal SendCc As String,
ByVal Subject As String, ByVal Body As String,
ByVal IsBodyHtml As Boolean, ByVal Server As String)

    Dim htmlMessage As MailMessage
    Dim mySmtpClient As SmtpClient

    htmlMessage = New MailMessage(
From, SendTo, Subject, Body)
    htmlMessage.IsBodyHtml = IsBodyHtml


    htmlMessage.CC.Add(SendCc)


    mySmtpClient = New SmtpClient(Server)
    mySmtpClient.Credentials = CredentialCache.DefaultNetworkCredentials
    mySmtpClient.Send(htmlMessage)

End Sub
...