Si llegaste hasta aqui, es porque ya navegaste medio internet y te pasaste horas buscando esta solucion, recalco que esta solucion lo realice hace muchos años, pero por motivos laborales me lo solicto un compañero, lo vuelvo ha agregar para ti que llegasta hasta aqui ha buscar esta solucion.Saludos
Sub EnviarCorreoNew(Byval pMensajeHTML as String,Byval pAsunto as String)
Try
Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient
'CONFIGURACIÓN DEL STMP
_SMTP.Credentials = New System.Net.NetworkCredential("bserti@bserti.com", "bserti2023")
_SMTP.Host = "smtp.gmail.com"
_SMTP.Port = 587
_SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
_Message.[To].Add("ccarrasco@bserti.com") 'Cuenta de Correo al que se le quiere enviar el e-mail
_Message.From = New System.Net.Mail.MailAddress("elvergonzales@bserti.com", "Confirmación de registro de feria", System.Text.Encoding.UTF8) 'Quien lo envía
_Message.Subject = pAsunto'Me.txtAsunto.Text.ToString 'Sujeto del e-mail
'_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body =pMensajeHTML 'Me.txtMensaje.Text.ToString 'contenido del mail
'_Message.BodyEncoding = System.Text.Encoding.UTF8
'_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = True
'ENVIO
' AddHandler(ServicePointManager.ServerCertificateValidationCallback, AddressOf ValidateRemoteCertificate)
'ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls Or SecurityProtocolType.Tls11 Or SecurityProtocolType.Tls12
System.Net.ServicePointManager.ServerCertificateValidationCallback =
Function(se As Object,
cert As System.Security.Cryptography.X509Certificates.X509Certificate,
chain As System.Security.Cryptography.X509Certificates.X509Chain,
sslerror As System.Net.Security.SslPolicyErrors) True
_SMTP.Send(_Message)
'MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
Catch ex As System.Net.Mail.SmtpException
'MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
Response.Write(ex.ToString)
End Try
End Sub
