Errore invio email

[Dario the best]

Salve, ho realizzato un codice per sito web che invia email ad utenti che provano a registrarsi. L'invio non avviene quando mi connetto ad una rete --edit--.

Di seguito il codice.

Dim omail As New System.Net.Mail.MailMessage
Dim oSmtp As New System.Net.Mail.SmtpClient("smtp.aruba.it")
Dim cMittente As New System.Net.Mail.MailAddress("noreply@euphemia.net" )
omail.From = VariabileMittente
omail.To.Add(VariabileEmail)
omail.CC.Add(Email)
omail.Subject = VariabileOggetto
omail.Body = VariabileMessaggio
omail.Priority = Net.Mail.MailPriority.High
omail.IsBodyHtml = True
oSmtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
oSmtp.Send(omail)

Spero qualcuno riesca ad aiutarmi. Grazie.