SSIS如何通过电子邮件发送在VB脚本中捕获的错误

Imports System
Imports System.Data
Imports System.Math
Imports Microsoft.SqlServer.Dts.Runtime
Imports System.Net.Mail

Public Class ScriptMain
    Inherits UserComponent

    Public Overrides Sub Main()

        Try
            ' 在这里编写你的业务逻辑代码

        Catch ex As Exception
            ' 捕获错误并发送电子邮件
            Dim smtpClient As New SmtpClient("smtp.example.com")
            Dim mailMessage As New MailMessage()
            mailMessage.From = New MailAddress("sender@example.com")
            mailMessage.To.Add("recipient@example.com")
            mailMessage.Subject = "SSIS Error"
            mailMessage.Body = ex.Message
            smtpClient.Send(mailMessage)

            Dts.TaskResult = ScriptResults.Failure
        End Try

        Dts.TaskResult = ScriptResults.Success
    End Sub

End Class