SSIS 2008脚本任务出错

下面是我在脚本任务中编写的代码，但我得到了错误，没有声明名称“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

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

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

Dim client As SmtpClient = new SmtpClient("hostname", 25)
client.Send("from@address.com", "to@address.com", "subject", "body")

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

Imports System.Net.Mail

---

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

您是否有对

Microsoft.SqlServer.ScriptTask

程序集的引用？如果是这样，您可以尝试从

Microsoft.SqlServer.Dts.Tasks.ScriptTask.VSTARTScriptObjectModelBase

Imports System.Net.Mail