Я настраиваю оповещение по электронной почте с помощью задачи сценария SSIS. Код работает, когда поле CC содержит только одно электронное письмо, но получает
«Ошибка: цель вызова выдала исключение».
для нескольких писем.
Это извлекает данные из представления в базе данных SQL. Я попробовал код только с одним электронным письмом, и он сработал, но получил ошибку для нескольких электронных писем в поле «Копия». Я попытался добавить "" в столбец CC, но все равно не работает.
"[email protected],[email protected]"
[email protected],[email protected]
Это то, что у меня есть в SSIS
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