Email inviata tramite CDO arriva come Spam

[leftist73]

Ciao a tutti,
se per caso questo thread fosse già stato affrontato chiedo scusa in anticipio, in caso contrario vi chiedo cortesemente aiuto.

Ho un piccolo form email crerato in cdo con asp:
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
With iMsg
Set .Configuration = iConf
.CreateMHTMLBody "http://xxxxxxxx.com"
.Bcc = email
.From = "email"
.Sender = "xxxxxxxxxxxx"
.Subject = "xxxxxxxx"
.Send

Il problema e che l'email arrivano come spam. Ho ovviamente anche provato a levare .Bcc con .TO ma il risultato non cambia. Qualcuno, per piacere, sà dirmi come risolvere questo antipaticissimo problema?

Grazie 1000