Imports System.Net.Mail
Public Sub EnvioMail(ByVal correo_rem As String, ByVal nombre_rem As String, ByVal pass_rem As String, ByVal servidor_smtp As String, ByVal puerto_smtp As String)
Dim correo As New MailMessage
Dim smtp As New SmtpClient()
correo.From = New MailAddress(correo_rem, nombre_rem, System.Text.Encoding.UTF8)
correo.To.Add("correoreceptor@live.com.mx") 'Correo al que se enviarán los Mail
correo.SubjectEncoding = System.Text.Encoding.UTF8
correo.Subject = "Asunto del Correo"
correo.Body = "Cuerpo del Correo"
correo.BodyEncoding = System.Text.Encoding.UTF8
correo.IsBodyHtml = False
correo.Priority = MailPriority.High
smtp.Credentials = New System.Net.NetworkCredential(correo_rem, pass_rem)
smtp.Port = Convert.ToInt32(puerto_smtp)
smtp.Host = servidor_smtp
'smtp.EnableSsl = True
smtp.Send(correo)
End Sub
