Salve, ho difficoltà ad inviare le email da un dominio. L'errore è il seguente:

errore nell'invio: Exceeded storage allocation. The server response was: 5.2.0 r5gi1q00756BBXA015gifr spam detected

L'errore riguarda un'elevata impostazione di spam. Quello che non capisco è perchè avviene solo su un determinato dominio, quando lo stesso codice viene utulizzato per tutti i domini e funziona.

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(txtEmail.Text)
Dim cRealMitt As New System.Net.Mail.MailAddress("miaemail@gmail.com")
oMail.From = cRealMitt
oMail.ReplyTo = cMittente
oMail.To.Add(Email)
oMail.Subject = txtOggetto.Text
oMail.Body = "<div style=""Font-Family:Tahoma; color:#212121; font-size:15px; text-align:center;"">" & _
"<b>Messaggio ricevuto tramite il sito web www.miosito.it</b></div><br><br>" & _
"<div style=""Font-Family:Tahoma; color:#212121; font-size:13px;"">" & _
"</b><b>Nominativo: </b>" & txtNominativo.Text & _
"<br><br><b>Indirizzo Email: </b>" & txtEmail.Text
oMail.Body &= "<br><br><b>Messaggio: </b>" & txtMessaggio.Text
oMail.Body &= "</div>"
oMail.Priority = Net.Mail.MailPriority.High
oMail.IsBodyHtml = True


Try
oSmtp.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
oSmtp.Send(oMail)
Catch ex As Exception
lblErrore.Visible = True
lblErrore.Text = "errore nell'invio: " & ex.Message
Exit Sub
End Try