lunes, 27 de octubre de 2008

enviando un email asp.net 2.0

 

aca esta xD

Dim correo As New System.Net.Mail.MailMessage
        correo.From = New System.Net.Mail.MailAddress("micorreo@correo.com")

        Dim mailx2 As New System.Net.Mail.MailAddress("correo destino")

        correo.To.Add(mailx2)

        correo.Subject = "subjet"
        correo.Body = "cuerpo bla bla "
        correo.IsBodyHtml = true     (si es html =true)
        correo.Priority = System.Net.Mail.MailPriority.High
        Dim smtp As New System.Net.Mail.SmtpClient
        smtp.Host = "host del que envia" smpt
        smtp.Credentials = New System.Net.NetworkCredential("usuariossmpt","clave")
        Try
            smtp.Send(correo)
            Return "enviado"

        Catch ex As Exception
            Return "ERROR: " & ex.Message

        End Try

    End Function

No hay comentarios: