Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Invio Mail con aruba --> timeout
Forum - C# / VB.NET - Invio Mail con aruba --> timeout

Avatar
adeiulio68 (Normal User)
Newbie


Messaggi: 1
Iscritto: 19/10/2016

Segnala al moderatore
Postato alle 14:46
Martedì, 07/11/2017
Ciao a tutti il seguente codice VB.NET (VS 2015) con Gmail va bene, mentre con aruba mi va in timeout.
Avete qualche idea ?
Devo impostare qualcosa sul dominio aruba che utilizzo?
  
il Codice...:


     Try
            Dim myClient As New SmtpClient()
            Dim myMessage As New MailMessage

            'Imposto la porta per le transazioni SMTP
            myClient.Port = 465 'Con gmail 587
            
       'Imposto il nome dell'host utilizzato per le transazioni SMTP
            myClient.Host = "smtps.aruba.it"     'Con gmail "smtp.gmail.com"
            
            'Disabilito le credenziali user
            myClient.UseDefaultCredentials = False

            'Imposto le credenziali per l'autenticazione del Mittente
            myClient.Credentials = New System.Net.NetworkCredential("user", "password")
            'Imposto l'indirizzo del Mittente
            myMessage.From = New MailAddress("xxxxxx@yyyy.com")

            'Specifico l'oggetto del messaggio di posta
            myMessage.Subject = "Prova invio mail da " + myMessage.From.ToString

            'Eseguo la codifica del contenuto del messaggio

            myMessage.BodyEncoding = System.Text.Encoding.UTF8

            'Qui si imposta il corpo del messaggio di posta , il contenuto

            myMessage.Body = "Corpo del Messaggio "
            'Imposta la crittografia di connessione specificando che la connessione SMTP

            'utilizza SSL

            myClient.EnableSsl = True
            'Imposta il timeout(millisec.)
            myClient.Timeout = 8000
            'Eseguo l'iterazione per la spedizione di messaggi di posta ai destinatari
            myMessage.To.Add(New MailAddress("dddd@gmiail.com"))
          
        'Invio il messaggio di posta
        myClient.Send(myMessage)
            MsgBox("Messaggio inviato.", MsgBoxStyle.Information, "Invio - E.mail")

        Catch ex As Exception
            'Visualizza messaggio a utente
            MsgBox(ex.Message)
        End Try


Alessandro De Iulio
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5460
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 15:13
Martedì, 07/11/2017
Prova con

out.postassl.it


P.S. Non ha senso postare su tanti forum contemporaneamente ...
http://www.visual-basic.it/Forum/tabid/151/aft/44289/Defau ...

Ultima modifica effettuata da nessuno il 07/11/2017 alle 15:42


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote