Error de conexion en servidores smtp?

[eljuanipiola]

Hola les traigo otro problema aver si me pueden ayudar ya termine el programa de envio de correos con adjunto el problema es el siguiente:

Yo con el smtp de gmail me anda perfecto pero con el de arnet y el de un dominio k tngo k se llama gtinet me tirar error de espera o conexion no se por que.
Tengo un programita echo en consola muy sencillo que no se que difrencia tiene que el smtp de arnet y gtinet me lo toma bien ahi les muestro los dos codigos !

Este es el que quiero que ande bien esta completo y listo pero no me agarra los smtp de arnet y gtinet solo los de mi gmail

Código:

'Espacio de nombres necesario
Imports System.Net.Mail
Imports System.Threading

Public Class FrmMail

    'variable array para adjuntos
    Dim Adjuntos() As String

    'instanciar la hebra
    Dim oHebra As Thread
    'Objeto SMTP
    Dim SMPT As New SmtpClient

    'Procedimiento
    Private Sub EnviarMail(ByVal StrDe As String, ByVal StrPara As String, _
                           ByVal StrAsunto As String, ByVal sAdjunto() As String, _
                           ByVal StrMensaje As String)
        Try

            'variable tipo mensaje con parametros De: Para:
            Dim Msg As New MailMessage(New MailAddress(StrDe), New MailAddress(StrPara))
            'asunto
            Msg.Subject = StrAsunto
            'mensaje
            Msg.Body = StrMensaje

            'ADJUNTOS
            For Each FAdjunto As String In sAdjunto
                If Not FAdjunto = "" Then
                    'Objeto tipo attachment
                    Dim Adjunto As New Attachment(FAdjunto)
                    'agregar adjunto al objeto mensaje
                    Msg.Attachments.Add(Adjunto)
                End If
            Next

            'DATOS SMTP
            
            'Credenciales
            SMPT.Credentials = New System.Net.NetworkCredential _
            ("[email protected]", "**********")
            'Host, Puerto, autenticacion
            SMPT.Host = "smtp.gmail.com"
            SMPT.Port = 587
            SMPT.EnableSsl = True
            SMPT.Timeout = 10
            'Enviar
            SMPT.Send(Msg)

            'regresar cursor y controles a modo normal
            Me.Cursor = Cursors.Default
            btnEnviar.Enabled = True
            ProgressBar1.Visible = False
            Label6.Visible = False

        Catch ex As Exception
            'regresar cursor y controles a modo normal
            Me.Cursor = Cursors.Default
            btnEnviar.Enabled = True
            ProgressBar1.Visible = False
            Label6.Visible = False
            MsgBox(ex.Message)
        End Try
    End Sub

    'función para validar formato de dirección Email
    Function ValidateEmail(ByVal email As String) As Boolean
        Dim emailRegex As _
            New System.Text.RegularExpressions.Regex( _
            "^(?<user>[^@]+)@(?<host>.+)$")
        Dim emailMatch As  _
            System.Text.RegularExpressions.Match = emailRegex.Match(email)
        Return emailMatch.Success
    End Function


    Private Sub TxtDe_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtDe.Validating
        'si la validación no pasa se visualiza el errorprovider
        If ValidateEmail(TxtDe.Text.Trim) Then
            e.Cancel = False
            ErrorProvider1.SetError(TxtDe, "")
        Else
            e.Cancel = True
            ErrorProvider1.SetError(TxtDe, "La dirección de correo no es válida. Presione F1 para obtener ayuda.")
        End If
    End Sub
    Private Sub TxtPara_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TxtPara.Validating
        If ValidateEmail(TxtPara.Text.Trim) Then
            e.Cancel = False
            ErrorProvider1.SetError(TxtPara, "")
        Else
            e.Cancel = True
            ErrorProvider1.SetError(TxtPara, "La dirección de correo no es válida. Presione F1 para obtener ayuda.")
        End If
    End Sub
    Private Sub FrmMail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' se establece el texto de ayuda al pulsar F1 en los textboxs
        HelpProvider1.SetHelpString(TxtDe, "Una dirección de correo válida debe tener el formato: [email protected]")
        HelpProvider1.SetHelpString(TxtPara, "Una dirección de correo válida debe tener el formato: [email protected]")
    End Sub

    Private Sub BtnAdjuntos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdjuntos.Click
        'para obtener adjuntos
        'establecemos filtros para mostrar todos los archivos
        OpenFileDialog1.Filter = "Todos los archivos|*.*"
        'mostramos el dialogo
        OpenFileDialog1.ShowDialog()
        'agregamos la ruta del adjunto
        CboAdjunto.Items.Add(OpenFileDialog1.FileName)
        'visualizamos la ruta
        CboAdjunto.SelectedIndex = CboAdjunto.Items.Count - 1
    End Sub

    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        'obtenemos los adjuntos
        ReDim Preserve Adjuntos(0 To CboAdjunto.Items.Count - 1)
        For i As Integer = 0 To Adjuntos.Length - 1
            Adjuntos(i) = CboAdjunto.Items.Item(i).ToString
        Next
   
        Me.Cursor = Cursors.WaitCursor
        btnEnviar.Enabled = False

        'poner en marcha la hebra
        oHebra = New Thread(AddressOf Envio)
        ProgressBar1.Visible = True
        Label6.Visible = True
        oHebra.Start()

    End Sub

    Private Sub Envio()
        'al finalizar el envío, abortar la hebra
        Control.CheckForIllegalCrossThreadCalls = False
        EnviarMail(TxtDe.Text.Trim, TxtPara.Text.Trim, TxtAsunto.Text, Adjuntos, TxtMensaje.Text)
        oHebra.Abort()
    End Sub

    Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        'cancelamos la operación
        SMPT.SendAsyncCancel()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class

ESTE ME FUNCINAN TODOS LOS SMTP PERO ES SIMPLE Y EN CONSOLA

Código:

Imports System
Imports System.Net
Imports System.Net.Mail
Module Email
    Sub Main()
        'datos del servidor…
        Dim host As String = "smtp.arnet.com.ar" 'ingreso el servidor smtp
        Dim puerto As Integer = 25                    'indico en que puerto hay que conectarse al servidor
        'datos de la cuenta…
        Dim usuario As String = "[email protected]"            'indico mi nombre de usuario
        Dim contrasenia As String = "*******"        'indico mi password
        'datos del mensaje en si mismo…
        Dim de As String = "[email protected]"    'ingreso el mail de origen (mi cuenta)
        Dim para As String = "[email protected]" 'ingreso el mail del destinatario
        Dim asunto As String = "una purefghfghfghfghfgbaaa con adjunto"   'indico cual es el asunto del mensaje
        Dim cuerpo As String = "lagopara vhfghfghfghfghfghfghfger"   'escribo el mensaje en si

        Try
            Dim mensaje As MailMessage = New MailMessage(de, para, asunto, cuerpo) 'creo el mensaje
            Dim clienteSMTP As SmtpClient = New SmtpClient(host, puerto)           'creo la conexion con el servidor
            clienteSMTP.UseDefaultCredentials = False                                        'no hay que usar las credenciales por defecto
            clienteSMTP.Credentials = New System.Net.NetworkCredential(usuario, contrasenia) 'hay que usar mis propias credenciales
            clienteSMTP.Send(mensaje) 'envio el mensaje y listo!
            clienteSMTP.EnableSsl = True
            'Aviso que ya lo envié…
            Console.WriteLine("Mensaje enviado exitosamente.")
        Catch ex As Exception
            Console.WriteLine("Ha ocurrido un error: " + ex.Message)
        Finally
            Console.WriteLine("Presione ENTER para salir…")
            Console.ReadLine()
        End Try
    End Sub
End Module

Desde ya muchas gracias !