ASP.NET – Enviar correos con archivos adjuntos

Para enviar correos con archivos adjuntos, tenemos dos maneras,

1.- adjuntamos el archivo indicándole la ruta física donde está ubicado (en el servidor, claro):

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    Dim mail As New MailMessage

    mail.From = New MailAddress("algun_correo1")
    mail.To.Add("algun_correo2")

    mail.Subject = "Email de prueba con archivo adjunto"
    mail.Body = "chequea el archivo adjunto que viene en este email"

    Dim FilePath As String = Server.MapPath("~/files/simple_file.txt")
    'el archivo se adjunta indicándole la ruta
    mail.Attachments.Add(New Attachment(FilePath))

    Dim mailClient As New SmtpClient()

    Dim basicAuthenticationInfo As New NetworkCredential("algun_correo1", "algun_password1")

    mailClient.Host = "algun_email_host"

    mailClient.UseDefaultCredentials = True
    mailClient.Credentials = basicAuthenticationInfo
    mailClient.Send(mail)

End Sub

Este caso es útil cuando ya tenemos guardado el archivo en el servidor.

2.- Obtenemos el archivo mediante el control FileUpload, osea el archivo está en la máquina del cliente… sin necesidad de previamente guardarlo en el servidor:

Código ASPX:

<form id="form1" runat="server">
    <asp:FileUpload ID="FileUpload1" runat="server" />
    <br /><br />
    <asp:Button ID="Button1" runat="server" Text="Enviar correo con archivo adjunto" />
</form>

Código VB.NET:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim mail As New MailMessage

    mail.From = New MailAddress("algun_correo1")
    mail.To.Add("algun_correo2")

    mail.Subject = "Email de prueba con archivo adjunto"
    mail.Body = "chequea el archivo adjunto que viene en este email"

    If FileUpload1.HasFile Then

        Dim MyFile As String = System.IO.Path.GetFileName(FileUpload1.PostedFile.FileName)
        Dim attachmentFile As New Attachment(FileUpload1.PostedFile.InputStream, MyFile)
        mail.Attachments.Add(attachmentFile)

    End If

    Dim mailClient As New SmtpClient()

    Dim basicAuthenticationInfo As New NetworkCredential("algun_correo1", "algun_password1")

    mailClient.Host = "algun_email_host"

    mailClient.UseDefaultCredentials = True
    mailClient.Credentials = basicAuthenticationInfo
    mailClient.Send(mail)

End Sub

Para ambos casos debemos importar:

Imports System.Net
Imports System.Net.Mail

Cualquier duda, comentan?