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

**pokerissimo** · 16-08-2010, 17:45

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="studioa@gmail.com"
.From = "gionny85@yahoo.it"
.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 : GIONNY85@YAHOO.IT

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 = "you@yourdomain.com"
'objCDOSYSMail.To = "send_to@domain.com"
'objCDOSYSMail.Subject = "CDOSYS test"
'objCDOSYSMail.HTMLBody = "This is the body "
'objCDOSYSMail.Send

'Set objCDOSYSMail = Nothing
'Set objCDOSYSCon = Nothing

e fatto un test su

http://www.10elo.info/persits.mailsender.asp

e invia l'email correttamente....questo il codice del file.

<%
' change to address of your own SMTP server
strHost = "127.0.0.1"
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost

Mail.From = "postmaster@10elo.info"
Mail.FromName = "Test"
Mail.AddAddress "webmaster@10elo.info"

' Attach two files in the same directory (any file type can be attached)
'strPath = Server.MapPath(".")
'Mail.AddAttachment strPath & "\ps_logo.gif"
'Mail.AddAttachment strPath & "\wehave.gif"
'Mail.CharSet = "UTF-8"
' message subject
Mail.Subject = "Test Persits.MailSender"
' message body
Mail.Body = "Test mail."

Mail.Send ' send message
Response.Write "Success!"
%>

<HTML>
<BODY BGCOLOR="#FFFFFF">
Mail sent..
</FORM>
</BODY>
</HTML>

**Roby_72** · 17-08-2010, 13:17

L'esempio che invia è fatto con il componente Persits.MailSender e non CDOSYS.
Se vuoi usare CDOSYS devi mettere questo:

codice:

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

Roby

**pokerissimo** · 17-08-2010, 15:27

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...E QUELLI SOTTO ERANO ESEMPI DEL SUPPORTO...PERSIST MAIL SENDER....MA COME INTEGRARE SU QUESTO SCRIPT AFFINCHE' FUNZIONI L'INTERA STRUTTURA?

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="studioa@gmail.com"
.From = "gionny85@yahoo.it"
.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...

**Roby_72** · 17-08-2010, 16:49

Per l'autenticazione protesti avere bisgono di user e password per spedire come in questo esempio:

http://forum.html.it/forum/showthread/t-729180.html

Roby

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

Strumenti discussione

Ricerca discussione

Visualizza

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

FORSE NON MI SONO SPIEGATO...E ME NE SCUSO

Permessi di invio