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', l'email non viene recapitata; penso che il server la ritenga spam.
come faccio a risolvere questo problema?
Grazie,
Ciao a tutti

---

Modificato da aspguru il 06 aprile 2005 14.27 -

Ciao,
ho risolto, se a qualcuno interessa il codice eccolo qua:
Grazie della risposta,
Ciao

+++++++++++++++++++++++ CDOSYS +++++++++++++++++++++++++++

DIM eMail, Flds, iConf, objSMTPConfig
Set eMail = server.CreateObject("CDO.Message")
Set objSMTPConfig = Server.CreateObject("CDO.Configuration")
'CONFIGURIAMO IL SERVER CON L'OGGETTO DI CONFIGURAZIONE
'IMPOSTIAMO L'STMP DI USCITA
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"
'LA PORTA DEL SERVER
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Di solito è 25
'LA PORTA CHE UTILIZZA CDO
objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'AGGIORNIAMO LE CONFIGURAZIONI
'objSMTPConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
objSMTPConfig.Fields.Update

'ED ASSEGNIAMO LA CONFIGURAZIONE ALL'OGGETTO CDOSYS (importante il set dato che è un oggetto)
Set eMail.Configuration = objSMTPConfig

'DISTRUGGIAMO L'OGGETTO DI CONFIGURAZIONE CHE NON CI SERVE PIU'
set ObjSMTPConfig = nothing

With eMail
'.Configuration = iConf
.To = "email@email.it"
.From = "mailing@tuosito.com"
.Subject = "conferma registrazione su: www.tuosito.com"
'Se il testo è in Html useremo HTMLBody al posto di TextBody
.HTMLbody = "inserisci testo"
'Stabiliamo il livello di importanza (1 o 2)
.Fields("urn:schemas:httpmail:importance").Value = 2
.Fields.Update()
'Inviamo la mail!
.Send()
end with

---

Modificato da aspguru il 06 aprile 2005 16.59 -

si mi interessa, grazie! Io usavo questo anche tu prima usavi lo stesso mio codice?

Set RegiMsg = CreateObject("CDO.Message")
Set RegiConf = CreateObject("CDO.Configuration")
Set RegFlds = RegiConf.Fields
RegFlds(cdoSendUsingMethod) = cdoSendUsingPort
RegFlds(cdoSMTPServer) = "smtp.aruba.it"
RegFlds(cdoSMTPServerPort) = 25
RegFlds(cdoSMTPAuthenticate) = cdoAnonymous '
RegFlds.Update
With RegiMsg
Set .Configuration = RegiConf
.To =
.From =
.Sender =
.Subject =
.HTMLBody
.Send
End With
Set RegiMsg = nothing
Set RegiConf = nothing
Set RegFlds = nothing

---

Modificato da Orsobruno il 06 aprile 2005 18.02 -

Hey, si grazie mille, ho verificato e funziona tutto ok, pure a me su virgilio era casino. Unica cosa, non per rompere i cosidetti, cioè secondo me nel codice che hai postato manca

set Email = Nothing

una piccola cosa ecco...