07/11/17 13:46
adeiulio68
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
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
aaa