Ciao a tutti
Ho un problema che mi sta facendo diventare pazzo.. Ho un sistema che invia un email in fase di registrazione agli utenti che si registrano sul mio sito per confermare la registrazione, funziona tutto perfettamente
ma quando un utente ha una delle seguenti email con estensione @libero , @inwind, @hotmail, e chissà quante altre l'email non viene ricevuta dal destinatario..
E' un giorno che ci sbatto la testa ma non riesco a trovare una soluzione.. vi posto lo script che invia l'email magari il problema è qui..ma non penso..
codice:
Dim objMail, objConfig
Set objMail = Server.createObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miodominio.it"
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance").Value = 1 'priorita alta =2
objMail.Fields.update()
objMail.From ="Attivazione Account <"&rsConfig("email")&">"
objMail.To = request.form("email")
objMail.Bcc = ""
objMail.Subject = "Conferma iscrizione"
objMail.TextBody = "Salve, la Sua registrazione è andata a buon fine."& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & "Le ricordiamo che deve cliccare sul seguente link per attivare la registrazione"& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & ""&url&"/activate.asp?active="& strusername &"&code="& sOtherId &""& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & "Le comunichiamo qui di seguito le informazioni di accesso al sito:"& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & "Username : " & strusername & ""& vbCrLf
objMail.TextBody = objMail.TextBody & "Password : " & strpassword & ""& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & "Se la registrazione non verrà attivata entro 48 ore, verrà eliminata automaticamente."& vbCrLf & vbCrLf
objMail.TextBody = objMail.TextBody & "Cordiali Saluti"& vbCrLf
objMail.Send()
Set objMail = Nothing