Buongiorno a Tutti!
Sto cercando di inviare una e-mail via PEC utilizzando il seguente codice:
Dim NewMail As New MailMessage()
Dim NewAddressFrom As New MailAddress(indirizzo da cui inviare)
Dim NewAddressTo As New MailAddress(indirizzo a cui inviare)
NewMail.From = NewAddressFrom
NewMail.To.Add(NewAddressTo)
NewMail.Subject = "oggetto e-mail"
NewMail.Body = "testo e-mail"
Dim NewSMTP As New SmtpClient("smtps...")
NewSMTP.EnableSsl = True
NewSMTP.Port = 465
Dim cred As New System.Net.NetworkCredential("username", "password")
NewSMTP.UseDefaultCredentials = False
NewSMTP.Credentials = cred
NewSMTP.DeliveryMethod = SmtpDeliveryMethod.Network
NewSMTP.Send(NewMail)
Quando cerco di eseguire il comando "Send", però, l'operazione va in "Timeout".
Piccole precisazioni:
- Le credenziali che sto utilizzando sono corrette
- La porta che sto utilizzando è aperta
Sapete dirmi, per favore, csa sto sbagliando?
Grazie per la collaborazione!
Alessandro
|