Form mail con register.it

cito17 · 5 Mag 2006

Ho inserito un form per l'invio di mail dal sito ma haimè non invia un bel niente.
Premetto che lo suo anche su aruba e funziona benissimo quale sarà il problema.
L'e-mail funziona che sia l'smtp?? il fatto è che non mi restituisce nessun errore mi dice mail inviata ma quando vado ad aprire l'account non è arrivato niente.

Allego codice.

Codice:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "info@miosito.com"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "info@miosito.com"

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.dada.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

Vale_Barbato · 5 Mag 2006

cito17 ha scritto:

Ho inserito un form per l'invio di mail dal sito ma haimè non invia un bel niente.
Premetto che lo suo anche su aruba e funziona benissimo quale sarà il problema.
L'e-mail funziona che sia l'smtp?? il fatto è che non mi restituisce nessun errore mi dice mail inviata ma quando vado ad aprire l'account non è arrivato niente.

Allego codice.

Codice:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "info@miosito.com"

	'* voce da modificare con un indirizzo email che funga da mittente: 
	'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
	'* dato che cdosys supporta questa notifica
		
invioDa =  "info@miosito.com"

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "mail.dada.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

Prova ad utilizzare al posto di cdosys il cdonts

lukeonweb · 5 Mag 2006

vale ha usato cdosys infatti

solo che il codice della configuration non è completo

http://www.aspcenter.net/articolo.asp?id=76

Vale_Barbato · 5 Mag 2006

lukeonweb ha scritto:
vale ha usato cdosys infatti

solo che il codice della configuration non è completo

http://www.aspcenter.net/articolo.asp?id=76

Non ho capito che mi hai detto, ma sembra che manchi la parte iniziale o sbaglio!

cito17 · 5 Mag 2006

Anch'io non ho capito cosa manca, forse l'autentificazione??

Cmq rimango nel dubbio in quanto lo stesso script su aruba funziona

lukeonweb · 5 Mag 2006

come che ho detto? sta usando cdosys, tutto qui

ho aggiunto anche che la seconda parte del codice, quella che richiama cdo.configuration, manca di alcuni parametri, tra cui username e password, ovvero quelle da cui manda email attraverso il server di register.it

io uso le mie mail, ad esempio .....@aspcenter.net con relativa password, ed inoltre indico il server di posta di aspcodehost.com dove sono in hosting

lui indica mail.dada.it e nemmeno mi convince... mica hai preso un esempio dallarete e lo hai adattato?

credo che sia qualcosa "tipo" mail.register.it

controlla

cito17 · 5 Mag 2006

mail.dada.it lo ho preso dalle impostazioni per smtp di register.it

avevo già provato con smtp.register.it e con smtp.miodominio.it ma niente, adesso provo a mettere utente e psw e ti faccio sapere

cito17 · 5 Mag 2006

le ho provate ma niente.

Questo è il codice come lo ho ritoccato secondo i tuoi suggerimenti:

Codice:

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	'* voce da modificare con il proprio indirizzo email
	
invioA =  "info@miodominio.com"
invioDa =  "info@miodominio.com"

nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
	
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
   END IF
NEXT

	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM path, iMsg, iConf, config

path = "http://schemas.microsoft.com/cdo/configuration/"

Set config  = Server.CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
config.Fields(path & "smtpauthenticate") = "smtp.register.it" 
config.Fields(path & "smtpserverport") = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
config.Fields(path & "sendusername") = "info@miodominio.com"
config.Fields(path & "sendpassword") = "******"
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Contatto dal dominio " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "  browser e sistema operativo " & browserSistemaOperativo  & vbCrLf & corpoMessaggio & ""
   .Send
End With
%> 
<script>
document.location.replace('grazie.asp');
</script>

se vedi qualcosa che ancora non và

Vale_Barbato · 5 Mag 2006

cito17 ha scritto:
le ho provate ma niente.

se vedi qualcosa che ancora non và

Invece di "smtp.register.it" prova "mail.register.it" o ancora webmail

cito17 · 5 Mag 2006

Nulla da fare non riesco a venircene fuori e vi assicuro che su aruba così come è scritto in originale funziona benissimo.

lukeonweb · 5 Mag 2006

naturalmente immagino che

config.Fields(path & "sendusername") = "info@miodominio.com"
config.Fields(path & "sendpassword") = "******"

siano dati di prova da scrivere qui, giusto?

perchè non provi a scrivere a register.it per chiedere una dritta? magari hanno solo il servr di posta intasato e ci stai perdendo la testa per nulla...

cito17 · 6 Mag 2006

Ecco la soluzione del problema

Notizia:

Ho provato a fare una ricerca con google per venircene fuori e alla 5° pagina ho trovato un thread di un forum che non ricordo dove mi rimandava ad una risposta di una FAQ ,nascosta bene, di register.it dove spiega come inserire un form mail in cdonts (tra l'altro anche molto bene).
Quindi prendo il codice lo inserisco nella pagina, compilo il modulo clicco su submit e.......
MI SI APRE UN ERRORE DI DOWNLOAD!?!?!?!?!?
Sicuramente ho sbagliato qualche cosa, quindi armato di pazienza ritorno sulla FAQ mi leggo bene il tutto e cosa trovo???

Stralcio della FAQ:

...omissis...

Le soluzioni BasicHost, PHPHost, MySQLHost di Register.it comprendono un FormMail di contatto 'base' facile da inserire sulle tue pagine (NB: il formmail non può essere inserito se hai solo i 10 GB di FreeHost inclusi nel dominio o un pacchetto di spazio aggiuntivo sul FreeHost)

...omissis...

Quindi ne deduco che anche cdontsys venga in qualche modo bloccato per lo stesso motivo
Della serie paghi poco (E poi non così poco) e poco avrai (Se non niente)

Non mi resta che dire che sono senza parole :crying: Cmq grazie a tutti per l'aiuto.

Vale_Barbato · 6 Mag 2006

I grandi che fanno figure da piccoli...

Buona fortuna Cito17

Cerca

Cerca

Form mail con register.it

cito17

Nuovo Utente

Vale_Barbato

Utente Attivo

lukeonweb

Utente Attivo

Vale_Barbato

Utente Attivo

cito17

Nuovo Utente

lukeonweb

Utente Attivo

cito17

Nuovo Utente

cito17

Nuovo Utente

Vale_Barbato

Utente Attivo

cito17

Nuovo Utente

lukeonweb

Utente Attivo

cito17

Nuovo Utente

Vale_Barbato

Utente Attivo

Discussioni simili