Errore Cdo Per Invio Email...come Fare??

[pokerisiimo]

Errore Cdo Per Invio Email...come Fare?? Veniamo al punto . Ho spostato il mio sito da aruba ad un server inglese.

E qui nascono i dolori....lo script sotto non e' accettato dal server inglese e mi va in errore...HO CAMBIATO SMTP.ARUBA.IT CON QUELLO GIUSTO MA NULLA...
questa la parte dello script usato su aruba...che invia l'email all'utente a conferma dalla pagina predisposta spedizione.

if Spedizione<>"3" then
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields



Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update



With iMsg
Set .Configuration = iConf
.to=email
.cc="[email protected]"
.From = "[email protected]"
.Subject = "Ordine n° " & NumeroOrdine


Ho letto che la porta 25 su quel server e' bloccata PER LO SPAM(bisogna autenticarsi... con login e password) e per questo va in errore...il supporto in inglese mi ha fatto degli esempi che riporto sotto...ma piu' che esempi a me serve capire come correggere lo script sopra per farlo funzionare sul sito inglese....

AVRETE CERTAMENTE CAPITO CHE NE SO POCO DI ASP . CHI E' COSI' GENEROSO DA DARMI UNA MANO MIA EMAIL : [email protected]

GRAZIE IN ANTICIPO...ALL'ANIMA PIA CHE MI AIUTA.

Qualcuno sa dirmi come correggere il file originale per far si che invii correttametne l'email dopo l'ordine su pagina web...



'IL SUPPORTO HA INDICATO DI USARE QUESTO TIPO DI CODICE PER INVIARE LE EMAIL
'Set objCDOSYSMail = Server.CreateObject("CDO.Message")
'Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'objCDOSYSCon.Fields.Update

'Set objCDOSYSMail.Configuration = objCDOSYSCon
'objCDOSYSMail.From = "[email protected]"
'objCDOSYSMail.To = "[email protected]"
'objCDOSYSMail.Subject = "CDOSYS test"
'objCDOSYSMail.HTMLBody = "This is the body "
'objCDOSYSMail.Send

'Set objCDOSYSMail = Nothing
'Set objCDOSYSCon = Nothing

Chi mi puo' correggere il pezzo di codice originale affinche' funzioni? GRAZZZIE!!!!!

 

[Paolo69]

...prova così:

if Spedizione<>"3" then
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "[email protected]"
objCDOSYSMail.To = email
objCDOSYSMail.cc = "[email protected]"
objCDOSYSMail.Subject = "Ordine n° " & NumeroOrdine
objCDOSYSMail.HTMLBody = "Qui scrivi il testo della e-mail :)  "
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

 

[pokerisiimo]

Forse non mi sono spiegato...e me ne scuso

QUESTO IL CODICE ORIGINALE CHE FUNZIONA SU ARUBA
CHE MI REINVIA UN MODULO CARICANDO I DATI DA DATABASE E INVIA EMAIL A ME E AL CLIENTE IN AUTOMATICO.

PURTROPPO SU ALTRO SERVER NON ARUBA NON FUNZIONA PROPRIO.
NON PERMETTE DI SPEDIRE IN MODO ANONIMO...MA con autenticazione user e password.

ora smtp.aruba.it l'ho cambiato con mail.miosito.it
ma non funziona forse chiede user e password account come se fossimo su outlook?
Cioe' l'autenticazione per poter inviare...
Come integrare lo script sotto...???

if Spedizione<>"3" then
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields



Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous
Flds.Update

(QUESTE TRE RIGHE SOPRA SONO IL PROBLEMA COME AUTENTICARE CON UTENTE E PASSWORD E NON SPEDIRE IN MODALITA' ANONIMA).
CREDO DOVREBBE FUNZIONARE....AUTENTICANDO...COME FOSSE UAN CASELLA POSTALE DEL SITO.

With iMsg
Set .Configuration = iConf
.to=email
.cc="[email protected]"
.From = "[email protected]"
.Subject = "Ordine n° " & NumeroOrdine


Ho letto che la porta 25 su quel server e' bloccata PER LO SPAM(bisogna autenticarsi... con login e password) e per questo va in errore...il supporto in inglese mi ha fatto degli esempi che HO RIPORTATO MA IL CODICE SOPRA E' DA INTEGRARE NON SOSTITUIRE...ALTRIMENTI LE PAGINE AD ESSO COLLEGATE NON VANNO E NON FUNZIONANO...

 

[Paolo69]

...prova così:

Dim myMail
Set myMail = Server.CreateObject("CDO.Message")
	myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=1
	myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "smtp.liga-multiplayer.com"
	myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= "25" 
	myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "__NOME UTENTE__"
	myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "__PASSWORD__"
	myMail.Configuration.Fields.Update
' Windows XP / 2003 
	myMail.Subject = "Ordine n° " & NumeroOrdine
	myMail.From = "[email protected]"
	myMail.To	= email
        MYMail.cc="[email protected]"
' messaggio
	myMail.HTMLBody	= "hELLO WORD!"
	myMail.Send
Set myMail = Nothing

... non credo si possa modificare quel codice messo a disposizione da aruba anche perchè se non sbaglio richiede un file in testa alla pagina.
Alla voce nome utente e password mettici le credenziali che usi per ricevere la posta, buon lavoro.

 

[Paolo69]

...altrimenti prova così:

Flds(cdoSMTPAuthenticate) = cdoAnonymous

sostituiscilo con:

Flds(cdoSENDusername) = "username"
Flds(cdoSENDpassword) = "PASSWORD"

Fonti: http://msdn.microsoft.com/en-us/library/ms526939