martes, 27 de junio de 2023

Server certificates should be verified during SSL/TLS connections VB.NET

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