Enviar un mensaje de correo electrónico HTML con la tarea Script
La tarea SendMail de Integration Services solamente admite los mensajes de correo en texto sin formato. Sin embargo, puede enviar con facilidad los mensajes de correo HTML mediante la tarea Script y las funciones de correo de .NET Framework.
[!NOTA]
Si desea crear una tarea que pueda reutilizar más fácilmente en varios paquetes, considere la posibilidad de utilizar el código de este ejemplo de tarea Script como punto inicial de una tarea personalizada. Para obtener más información, vea Desarrollar una tarea personalizada.
Descripción
En el ejemplo siguiente se usa el espacio de nombres System.Net.Mail para configurar y enviar un mensaje de correo HTML. El script obtiene los campos Para, De, Asunto y el cuerpo del correo electrónico de las variables de paquete, los usa para crear un nuevo MailMessage y establece su propiedad IsBodyHtml en True. A continuación, obtiene el nombre del servidor SMTP de otra variable de paquete, inicializa una instancia de System.Net.Mail.SmtpClient y llama a su método Send para enviar el mensaje HTML. En el ejemplo se encapsula el mensaje enviando la funcionalidad en una subrutina que se puede reutilizar en otros scripts.
Para configurar este ejemplo de tarea Script sin un administrador de conexiones SMTP
Cree las variables de cadena con nombre HtmlEmailTo, HtmlEmailFromy HtmlEmailSubject, y asígneles los valores adecuados para un mensaje de pruebas válido.
Cree una variable de cadena con nombre HtmlEmailBody y asígnele una cadena de marcado HTML. Por ejemplo:
<html><body><h1>Testing</h1><p>This is a <b>test</b> message.</p></body></html>Cree una variable de cadena con nombre HtmlEmailServer y asigne el nombre de un servidor SMTP disponible que acepte mensajes salientes anónimos.
Asigne las cinco variables a la propiedad ReadOnlyVariables de una nueva tarea Script.
Importe los espacios de nombres System.Net y System.Net.Mail en su código.
En el código de ejemplo de este tema se obtiene el nombre del servidor SMTP de una variable de paquete. Sin embargo, también podría aprovechar un administrador de conexiones SMTP para encapsular la información de conexión y extraer el nombre del servidor del administrador de conexiones en su código. El método AcquireConnection del administrador de conexiones SMTP devuelve a una cadena en el formato siguiente:
SmtpServer=smtphost;UseWindowsAuthentication=False;EnableSsl=False;
Puede usar el método String.Split para separar esta lista de argumentos en una matriz de cadenas individuales en cada signo de punto y coma (;) o signo igual (=) y, a continuación, extraer el segundo argumento (subíndice 1) de la matriz como el nombre de servidor.
Para configurar este ejemplo de tarea Script con un administrador de conexiones SMTP
Modifique la tarea Script que configuró anteriormente quitando la variable HtmlEmailServer de la lista ReadOnlyVariables.
Reemplace la línea de código que obtiene el nombre de servidor:
Dim smtpServer As String = _ Dts.Variables("HtmlEmailServer").Value.ToStringcon las siguientes líneas:
Dim smtpConnectionString As String = _ DirectCast(Dts.Connections("SMTP Connection Manager").AcquireConnection(Dts.Transaction), String) Dim smtpServer As String = _ smtpConnectionString.Split(New Char() {"="c, ";"c})(1)
Código
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);
}
|
.gif "Icono de Integration Services (pequeño)")
Manténgase al día con Integration Services