[Risolto] Problemi invio e-mail con CDOSYS con domini @live.it

[ilgios]

Ciao a tutti,
perdonate l'argomento, ma sto diventando matto.

Ho un form di registrazione ad un mio sito, dove una volta che viene completata, parte una e-mail all'indirizzo specificato con i dati inseriti.
Durante i miei test, tutto funzionava correttamente, ma non appena ho provato con un indirizzo con dominio @live.it, al mittente arriva la seguente mail:

Action: failed
Status: 5.1.1
Diagnostic-Code: smtp; 550 5.7.0 (SNT0-MC3-F22) Message could not be delivered. Please ensure the message is RFC 5322 compliant.
Last-attempt-Date: Wed, 15 Jan 2014 22:04:42 +0100


Con tutti gli altri domini @libero.it, @gmail, @hotmail, etc etc tutto funziona correttamente.


Vi riporto qua di seguito lo spezzone di codice utilizzato per l'invio della email:

Set objMessage = CreateObject("CDO.Message")
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields

Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' richiedo autenticazione
' Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
' username e password
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "indirizzo email di hosting"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password dell'indirizzo email dell'hosting"
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp server"
' port
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Fields.Update


Set objMessage.Configuration = Config
objMessage.Sender = strFromEmail
objMessage.HTMLBody = strMessage
objMessage.From = strFromName
objMessage.To = [email protected]
objMessage.Subject = strSubject
objMessage.Send


Set objMessage = Nothing
Set Config = Nothing
Set Fields = Nothing


Mi sapreste aiutar per capire cosa e dove sbaglio?


Grazie a tutti
Giorgio

 

[Paolo69]

Ciao, nel pomeriggio se riesco gli do un'occhio...
intanto prova a commentare queste due righe:

' Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
' Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

 

[ilgios]

Ciao, grazie per la risposta, ma il problema resta anche commentando quelle righe che mi hai indicato


Giorgio

 

[Paolo69]

Ciao, grazie per la risposta, ma il problema resta anche commentando quelle righe che mi hai indicato


Giorgio

Ciao, scusa il ritardo ma in questi giorni sono sempre via per lavoro.

Non ho avuto tempo di testare il tuo script... prova se vuoi questo, funziona.

da inserire in testa al file... riga 1 e riga 2:

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

codice invio email:

				Set Mail = CreateObject("CDO.Message")
				Set iConf = CreateObject("CDO.Configuration")
				Set Flds = iConf.Fields

					Flds(cdoSendUsingMethod) = cdoSendUsingPort
					Flds(cdoSMTPServer) = "smtp.******.info" 
					Flds(cdoSMTPServerPort) = 25
					Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
					Flds.Update

					Mail.To 	  = "****@live.it" 'destinatario
					Mail.From	  = "[email protected]" ' mittente
					Mail.Subject  = oggetto 'oggetto
					Mail.HTMLBody = "Messagiio prova" 'testo

					Mail.Send

fammi sapere che se riesco domani provo il tuo codice.

 

[ilgios]

Ciao,
ho cambiato lo spezzone di codice come mi avevi detto, ed adesso funziona tutto correttamente. Faccio ancora dei test e se c'è qualche problema, scriverò qua!

Grazie ancora Paolo!!!! :jolly:

Giorgio