Enviar un mensaje de correo electrónico HTML con la tarea Script

Artículo
05/23/2023

Se aplica a: SQL Server SSIS Integration Runtime en Azure Data Factory

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 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 electrónico 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 el 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.ToString

con 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 htmlMessageFrom As String = _  
    Dts.Variables("HtmlEmailFrom").Value.ToString  
  Dim htmlMessageTo As String = _  
    Dts.Variables("HtmlEmailTo").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( _  
      htmlMessageFrom, htmlMessageTo, _  
      htmlMessageSubject, htmlMessageBody, _  
      True, smtpServer)  
  
  Dts.TaskResult = ScriptResults.Success  
  
End Sub  
  
Private Sub SendMailMessage( _  
    ByVal From As String, ByVal SendTo 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( _  
    From, SendTo, Subject, Body)  
  htmlMessage.IsBodyHtml = IsBodyHtml  
  
  mySmtpClient = New SmtpClient(Server)  
  mySmtpClient.Credentials = CredentialCache.DefaultNetworkCredentials  
  mySmtpClient.Send(htmlMessage)  
  
End Sub

public void Main()  
        {  
  
            string htmlMessageFrom = Dts.Variables["HtmlEmailFrom"].Value.ToString();  
            string htmlMessageTo = Dts.Variables["HtmlEmailTo"].Value.ToString();  
            string htmlMessageSubject = Dts.Variables["HtmlEmailSubject"].Value.ToString();  
            string htmlMessageBody = Dts.Variables["HtmlEmailBody"].Value.ToString();  
            string smtpServer = Dts.Variables["HtmlEmailServer"].Value.ToString();  
  
            SendMailMessage(htmlMessageFrom, htmlMessageTo, htmlMessageSubject, htmlMessageBody, true, smtpServer);  
  
            Dts.TaskResult = (int)ScriptResults.Success;  
  
        }  
  
        private void SendMailMessage(string From, string SendTo, string Subject, string Body, bool IsBodyHtml, string Server)  
        {  
  
            MailMessage htmlMessage;  
            SmtpClient mySmtpClient;  
  
            htmlMessage = new MailMessage(From, SendTo, Subject, Body);  
            htmlMessage.IsBodyHtml = IsBodyHtml;  
  
            mySmtpClient = new SmtpClient(Server);  
            mySmtpClient.Credentials = CredentialCache.DefaultNetworkCredentials;  
            mySmtpClient.Send(htmlMessage);  
  
        }

Consulte también

Tarea Enviar correo

Compartir a través de