html用戶訊息展示模板,使用指令碼工作傳送 HTML 郵件訊息

程式碼

Public Sub Main()

Dim htmlMessageTo As String = _

Dts.Variables("HtmlEmailTo").Value.ToString

Dim htmlMessageFrom As String = _

Dts.Variables("HtmlEmailFrom").Value.ToString

Dim htmlMessageSubject As String = _

Dts.Variables("HtmlEmailSubject").Value.ToString

Dim htmlMessageBody As String = _

Dts.Variables("HtmlEmailBody").Value.ToString

Dim smtpServer As String = _

Dts.Variables("HtmlEmailServer").Value.ToString

SendMailMessage( _

htmlMessageTo, htmlMessageFrom, _

htmlMessageSubject, htmlMessageBody, _

True, smtpServer)

Dts.TaskResult = ScriptResults.Success

End Sub

Private Sub SendMailMessage( _

ByVal SendTo As String, ByVal From 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( _

SendTo, From, Subject, Body)

htmlMessage.IsBodyHtml = IsBodyHtml

mySmtpClient = New SmtpClient(Server)

mySmtpClient.Credentials = CredentialCache.DefaultNetworkCredentials

mySmtpClient.Send(htmlMessage)

End Sub

public void Main()

{

string htmlMessageTo = Dts.Variables["HtmlEmailTo"].Value.ToString();

string htmlMessageFrom = Dts.Variables["HtmlEmailFrom"].Value.ToString();

string htmlMessageSubject = Dts.Variables["HtmlEmailSubject"].Value.ToString();

string htmlMessageBody = Dts.Variables["HtmlEmailBody"].Value.ToString();

string smtpServer = Dts.Variables["HtmlEmailServer"].Value.ToString();

SendMailMessage(htmlMessageTo, htmlMessageFrom, htmlMessageSubject, htmlMessageBody, true, smtpServer);

Dts.TaskResult = (int)ScriptResults.Success;

}

private void SendMailMessage(string SendTo, string From, string Subject, string Body, bool IsBodyHtml, string Server)

{

MailMessage htmlMessage;

SmtpClient mySmtpClient;

htmlMessage = new MailMessage(SendTo, From, Subject, Body);

htmlMessage.IsBodyHtml = IsBodyHtml;

mySmtpClient = new SmtpClient(Server);

mySmtpClient.Credentials = CredentialCache.DefaultNetworkCredentials;

mySmtpClient.Send(htmlMessage);

}

掌握 Integration Services 的最新狀態

若要取得 Microsoft 的最新下載、文件、範例和影片以及社群中的選定解決方案，請瀏覽 MSDN 或 TechNet 上的 Integration Services 頁面：

若要得到這些更新的自動通知，請訂閱該頁面上所提供的 RSS 摘要。