Salve ragazzi,rieccomi!
Innazitutto buon anno a tutti.
Voglio porvi il mio problema...
Ho creato sito piccolo per la gestione di un fantacalcio tra amici.
Per una sezione del sito ho messo appunto una procedura per la quale se un utente(un partecipante al fantacalcio che si è loggato) compie una specifica azione sul sito che interessa a tutti gli altri i partecipanti,viene spedita un'email di avviso agli altri e una a lui per ricordo :-)
Ora la cosa facendo le prove in locale funzionava da DIO!
Portando il tutto sul server pubblico a cui sono registrato...non va...mi da il fatidico errore CDO.Message 1.
vi posto il codice che ho scritto a me sembra corretto:
<% ' INVIO EMAIL AI PARTECIPANTI.
...
Set objCDOMail=server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
with objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("cdoSMTPAuthenticate") = "cdoAnonymous" ' 0
.Fields.update
End With
Set objCDOMail.Configuration = objConfig
objCDOMail.Bcc = destinatari
objCDOMail.From = 'email utente che ha compiuto l'azione'
objCDOMail.Sender = "miaemail@virgilio.it"
objCDOMail.Subject = oggetto
objCDOMail.Textbody = messaggio
objCDOMail.Send()
'INVIO EMAIL ricordo ALL'UTENTE
...
Set objCDOMail_off=server.CreateObject("CDO.Message")
Set objConfig_off = Server.createObject("CDO.Configuration")
with objConfig_off
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("cdoSMTPAuthenticate") = "cdoAnonymous" ' 0
.Fields.update
End With
Set objCDOMail_off.Configuration = objConfig_off
objCDOMail_off.To = (email_offerente.Fields.Item("EMAIL").Value)
objCDOMail_off.From = 'valore email indifferente'
objCDOMail_off.Sender= "miaemail@virgilio.it"
objCDOMail_off.Subject = oggetto
objCDOMail_off.Textbody = msg_offerta
objCDOMail_off.Send()
objCDOMail = nothing
objConfig = nothing
objCDOMail_off = nothing
objConfig_off = nothing
%>
La cosa bella è che sullo stesso server la mia pagina contatti con il suo bel "modulino" da compilare e da spedirmi funziona che è una meraviglia:
ecco il codice:
<%
Dim objCDOMail, objConfig, nome, email, messaggio, oggetto, msg_invio
nome = Request.Form("nome")
email = request.Form("email")
messaggio = request.Form("messaggio")
oggetto = request.Form("oggetto")
'response.write(nome & vbcrlf & messaggio)
msg_invio= "Sono: " & nome & Vbcrlf & "E questo è il mio messaggio: " & Vbcrlf & messaggio
Set objCDOMail=server.CreateObject("CDO.Message")
Set objConfig = Server.createObject("CDO.Configuration")
with objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.tin.it"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set objCDOMail.Configuration = objConfig
objCDOMail.To = "miacrer@virgilio.it"
objCDOMail.From = email
objCDOMail.Subject = oggetto
objCDOMail.Textbody = msg_invio
objCDOMail.Send()
objCDOMail = nothing
objConfig = nothing
%>
Dove potrebbe annidarsi la causa???
Da un pò però ho una pulce nell'orecchio:
Vuoi vedere che il server non mi supporta l'invio di email?Anche perchè è uno spazio gratuito(non è che il sito abbia chissà quale utilità da poter acquistare un pò di spazio web..anche perchè non si autofinaziarebbe nemmeno visto il suo utilizzo)Infatti tra le Faqs di questo host americano ci sta scritto che sul loro server per motivi di sicurezza non gira il componemte CDNOTS...io potrei dire io uso il CDO SYS...questo potrebbe magari spiegare perchè riesco inviare le email della mia pagina "Contatti".
Credo di avere detto tutto.Aspetto suggerimenti.
Ah...dimenticavo.Potreste suggerirmi un host...free ovviamente...che supporti ASP e l'invio di queste email.
Grazie sempre per il vostro aiuto.
Rispondi quotando
