envio de correo en aspx vb

[Eloytxo]

Te dejo un código en Vb.Net

Código vb:

Public Shared Sub EnviarCorreo(ByVal Destino As String, ByVal Cuerpo As String, ByVal Asunto As String)
 
        Dim correo As New System.Net.Mail.MailMessage
        Dim destinatario As String
        Dim smtp As New System.Net.Mail.SmtpClient
 
 
        destinatario = Destino
        correo.From = New System.Net.Mail.MailAddress("[email protected]", "NOMBRE QUE APARECERA EN EL FROM")
        correo.To.Add(destinatario)
        correo.Subject = Asunto
        correo.Body = Cuerpo
        correo.IsBodyHtml = False
        correo.Priority = System.Net.Mail.MailPriority.Normal
 
 
        smtp.Host = "HOST SMTP DESDE LA QE ENVIAS"
        smtp.Credentials = New System.Net.NetworkCredential("DIRECCION DESDE LA QUE ENVIAS", "PASSWORD")
        'smtp.Port = 587 
        'smtp.EnableSsl = True  (Estas te valen para enviar desde GMAIL
 
 
        smtp.Send(correo)
        
    End Sub