Enviar Correos

[Vega19]

Buenas amigos,
tengo un dominio personal, [email protected] el cual por medio de esta direccion de correo deseo enviar correos a otros del mismo dominio [email protected]

Pero cuando le doy enviar me sale "El servidor no admite conexiones seguras"

Este es mi codigo:

Código vb:

Private Sub EnviarCorreo()
 
        Try
 
 
            ' Capturo cada uno de los campos del formulario
            Dim SMTP As String = txtSMTP.Text
            Dim Usuario As String = txtUsuario.Text
            Dim Contraseña As String = txtContraseña.Text
            Dim A As String = txtA.Text
            Dim Contenido As String = txtContenido.Text
            Dim Asunto As String = txtAsunto.Text
            Dim Puerto As Integer = Integer.Parse(txtPuerto.Text)
 
            'Declaro la variable para enviar el correo
            Dim correo As New System.Net.Mail.MailMessage()
            correo.From = New System.Net.Mail.MailAddress(Usuario)
            correo.Subject = "Correo de prueba"
            correo.Subject = Asunto
            correo.To.Add(A)
            correo.Body = Contenido
 
 
            'Configuracion del servidor
            Dim Servidor As New System.Net.Mail.SmtpClient
            Servidor.Host = SMTP
            Servidor.Port = Puerto
            Servidor.EnableSsl = True
            Servidor.Credentials = New System.Net.NetworkCredential(Usuario, Contraseña)
            Servidor.Send(correo)
 
            MessageBox.Show("Correo enviado!", "Correo", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
 
        Catch ex As Exception
            MessageBox.Show("No se logro enviar correo " + ex.Message, "Correo", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 

Deshabilito la opcion:

Código vb:

Servidor.EnableSsl = false
 

y aun asi me tira error.
Nose cual pueda ser, me podrian ayudar por favor.