脚本任务的 SSIS 2008 错误

Question

这是我在脚本任务中编写的代码，但出现错误，名称“DTS”未声明

1）知道如何解决吗？

2）另一个问题是，而不是 "MsgBox("文件找到)") "，我想发送一封电子邮件作为错误，我应该写什么？

多谢

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

Imports System.IO

Public Class ScriptMain

    Public Sub Main()

        If Directory.GetFiles("C:\456").Length = 0 Then
            MsgBox(" files found)")
        Else
            MsgBox("not found)")
        End If
        Dts.TaskResult = Dts.Results.Success
    End Sub
End Class

Answer 1

1）尝试简单地返回0（它代表成功）

Dts.TaskResult = 0

2）将MsgBox（“文件找到”）更改为类似的东西

Dim client As SmtpClient = new SmtpClient("hostname", 25)
client.Send("[email protected]", "[email protected]", "subject", "body")

在这种情况下，不要忘记导入名称空间

Imports System.Net.Mail

我不确定发送是否有效，但你可以尝试它