CDOSYS , le email non arrivano

[AspGuru]

Ciao a tutti,
Ho seguito i tutorial sul sito aruba per creare una pagina asp che invii le email tramite l'oggetto CDOSYS.
Tutto funziona correttamente, ma se invio un email ad un utente con dominio 'virgilio.it', 'libero.it', e chissà quante altri, l'email non viene recapitata; penso che il server la ritenga spam.
come faccio a risolvere questo problema?
Grazie,
Ciao a tutti

Link di aruba:
http://vademecum.aruba.it/start/cont...tto.htm#cdosys

[Roby_72]

Il mittente delle tue email quale sarebbe?

Roby

[AspGuru]

Ciao,
grazie della risposta, ti posto il codice.


Dim eMail, Flds, iConf, objSMTPConfig
Set eMail = server.CreateObject("CDO.Message")
Set objSMTPConfig = Server.CreateObject("CDO.Configuration")
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objSMTPConfig.Fields.Update
Set eMail.Configuration = objSMTPConfig
set ObjSMTPConfig = nothing
With eMail
.To = strEmail
.From = "mailing@sito.com"
.Sender = "sito"
.Subject = "conferma registrazione su www.sito.com"
.HTMLbody = "cliccare sul link per completare la registrazione: <a href=http://www.sito.com/cpl/inseriscimail.asp?email=" & strEmail & "&rnd=" & rndnum &"> clicca </a>"
.Fields("urn:schemas:httpmail:importance").Value = 2
.Fields.Update()
.Send()
end with

[Roby_72]

Prova a togliere questo

.Sender = "sito"

Roby

[AspGuru]

OK, provo

[AspGuru]

sei un grande
adesso funziona.
grazie mille.