• Option Strict Off

    Imports System

    Imports System.Data

    Imports System.Math

    Imports System.Net.Mail

    Imports Microsoft.SqlServer.Dts.Runtime

    Public Class ScriptMain

    Public Sub Main()

    Dim varHTMLMail As MailMessage

    Dim varSMTPClient As SmtpClient

    Dim varMailBody As Object

    Dim varAddresses As String

    varMailBody = Dts.Variables("varSalesSummaryHTML").Value

    varAddresses = Dts.Variables("varMailTo").Value.ToString

    varHTMLMail = New MailMessage("noreply@domain.com", varAddresses, "Daily Order Summary", varMailBody)

    varHTMLMail.IsBodyHtml = True

    varSMTPClient = New SmtpClient("Your_SMTP_Server_Name")

    varSMTPClient.UseDefaultCredentials = True

    varSMTPClient.Send(varHTMLMail)

    Dts.TaskResult = Dts.Results.Success

    End Sub

    End Class

    above code giving error