Codice asp per invio email tramite form vorrei dei consigli

gelova

I campi sono pieni, non capisco......:bho:
Ho nuovamente utilizzato il più semplice e cioè:

<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="mio.smtp.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

Inserendo solamente email,oggetto e corpo del messaggio

questo nella pag. grazie.asp

nella pag. contatti.asp ho inserito il seguente form:

<form id="form1" name="form1" method="post" action="grazie.asp">
<p> Tua email:
<input name="emailAddress" type="text" id="emailAddress" />
Soggetto:
<input name="subject" type="text" id="subject" />
</p>
<p>:

</p>

<p> </p>
<p>Message Body :
<textarea name="body" id="body"></textarea>
</p>
<p>
<input type="submit" name="Submit" value="Invia" />
<input type="reset" name="Submit2" value="Cancella" />
</p>
<p> </p>
</form>

ma continua a darmi un errore, con Firefox mi appare questo:

error '8004020f' /grazie.asp, line 17

con IE 6 la classica "Impossibile visualizzare la pagina"......la cosa strana è che se provo con IE ad accedere alla pagina incriminata e cioè grazie.asp mi appare impossibile visualizzare.........
:bho::bho::bho::bho::bho::bho:

madai

@gelova said:

ma continua a darmi un errore, con Firefox mi appare questo:

error '8004020f' /grazie.asp, line 17

Che server smtp stai utilizzando? Sei sicuro che sia buono?

@gelova said:

con IE 6 la classica "Impossibile visualizzare la pagina"......la cosa strana è che se provo con IE ad accedere alla pagina incriminata e cioè grazie.asp mi appare impossibile visualizzare........

E' normale... IE, nella scheda avanzate di Opzioni Internet, ha come predefinito la seguente voce spuntata: "Mostra messaggi di errore HTTP brevi". Questa opzione nasconde gli errori di codice all'utente medio. Tu devi deselezionarla per poter leggere gli errori anche da IE.

legolas

@madai said:

Che server smtp stai utilizzando? Sei sicuro che sia buono?
stessa domanda che ti volevo fare io

gelova

smtp.tele2.it
Ma in locale mi funziona benissimo tramite IIS

madai

@gelova said:

smtp.tele2.it
Ma in locale mi funziona benissimo tramite IIS

Non conosco il funzionamento della posta di tele2 ma è probabile che i loro server rifiutino connessioni da ip che non appartengono al loro network. Tu da casa probabilmente hai una connessione tele2... ecco perchè ti funziona.

La soluzione? Cambia email... magari usa quella di aruba.

Ciao fammi sapere.

gelova

Ho provato a cambiare email utilizzando quella di aruba ma l'errore continua....ma la cosa che mi chiedo io è perchè con il modulo fornito da loro (aruba) che avevo precedentemente menzionato l'invio funziona ?

Ecco il modulo fornito da loro:

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

'* voce da modificare con il proprio indirizzo email

invioA = "[email protected]"

'* 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 = "[email protected]"

'------------fine modifiche necessarie------------------

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) = "smtp.aruba.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>

Inoltre vi è una pag html dove è presente il form e una pag di ringraziamenti in asp.
Questo modulo ho provato a metterlo online e funziona solo che non saprei metterci mano nel senso che se dovessi cambiare le voci del form non saprei le modifiche da fare :bho:

madai

hai impostato l'smtp di aruba? è quella la cosa importante

gelova

Ti scrivo il codice che ho utilizzato:
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

madai

ho provato questo codice su un server aruba e mi funziona

Che errore ti da?

gelova

Aspetta ! Aspetta ! Aspetta !.......Funziona.....ho cancellato la cache da IE e Firefox e ora funziona con questo form:
Ti scrivo il codice che ho utilizzato:
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("emailAddress")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.TextBody=Request.Form("body")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing

%>

** Quindi ho voluto rimettere quello modificato da Legolas e cioè questo:**

<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.aruba.it"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("email")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
"<br/>Commenti:" & request.Form("commenti")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>

** Ma mi da nuovamente un errore e cioè questo:
**
Microsoft VBScript compilation error '800a03ea'
Syntax error
/grazie.asp, line 16
cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

madai

Occhio che questo:

cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") &
"<br/>Commenti:" & request.Form("commenti")

va tutto su una riga:


cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & request.form("citta") & "<br/>Email:" & request.Form("email") & "<br/>Commenti:" & request.Form("commenti")

gelova

Il Dreamweaver lo porta a capo in automatico, come devo fare ?

madai

@gelova said:

Il Dreamweaver lo porta a capo in automatico, come devo fare ?

L'accapo automatico di dreamweaver non conta... l'importante è che sia tutto su una riga, te ne accorgi perchè la numerazione della riga non avanza quando va accapo solo per opzione di vista codice.

gelova

ma allora così va bene.....fammelo riscrivere e tra 2 minuti ti faccio sapere !

gelova

Dimmi che sono un Co.... dillo pure !!!

cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Citta:" & " request.form("citta") & "<br/>Email:" & request.Form("email") &
"<br/>Commenti:" & request.Form("commenti")

Avevo messo delle virgolette di troppo, il mio codice risultava così:

Citta:" & " request.form("citta")

A voi postavo quello corretto perchè l'avevo salvato in un file di testo, mentre io pubblicavo quello con due virgolette di troppo che non vedevo !

Perdonatemi vi ho fatto perdere del tempo, ma almeno grazie a voi sono riuscito a scoprire dove stava l'errore !!!!
Grazie 1000
p.s.
A questo punto vorrei provare a pubblicarlo con l'SMTP di tele2 chissà se funziona ?

madai

Bene

Gli errori di distrazione rimangono i più comuni anche per programmatori esperti

@gelova said:

A questo punto vorrei provare a pubblicarlo con l'SMTP di tele2 chissà se funziona ?

Non credo... l'errore che ti dava era specifico... comunque prova

Ciao!

legolas

@gelova said:

A questo punto vorrei provare a pubblicarlo con l'SMTP di tele2 chissà se funziona ?

non voglio dire una fesseria ma l'smtp di teledue è usabile solo da chi si connette effettivamente con teledue, quindi dal tuo computer si, ma dal server non credo proprio.
Se il sito è hostato da aruba devi usare smtp.aruba.it .

Ciao

tifo.napoli

Ciao a tutti del forum..sono nuovo e volevo kiedervi se potevate darmi una mano a far funzionar questo fom per l'invio di email.

Premette ke ne capisco ben poco di asp. Ho creato 2 pagina una in htm (form.htm) e l'altra in asp (inviomail.asp)

La prima pagina form.htm
**
<body>
<form method="post" action="inviomail.asp">
Nome:<input type="text" name="nome" id="nome"/><br/>
Cognome:<input type="text" name="cognome" id="cognome"/><br/>
Telefono fisso:<input type="text" name="telefono" id="telefono"/><br/>
Cellulare:<input type="text" name="cellulare" id="cellulare"/><br/>
Email:<input type="text" name="email" id="email"/><br/>
Data di arrivo:<select name="giornoarrivo" onchange="date_update()" class="day">
<option label="01" value="01" selected="selected">01</option>
<option label="02" value="02">02</option>
<option label="03" value="03">03</option>
<option label="04" value="04">04</option>
<option label="05" value="05">05</option>
<option label="06" value="06">06</option>
<option label="07" value="07">07</option>
<option label="08" value="08">08</option>
<option label="09" value="09">09</option>
<option label="10" value="10">10</option>
<option label="11" value="11">11</option>
<option label="12" value="12">12</option>
<option label="13" value="13">13</option>
<option label="14" value="14">14</option>
<option label="15" value="15">15</option>
<option label="16" value="16">16</option>
<option label="17" value="17">17</option>
<option label="18" value="18">18</option>
<option label="19" value="19">19</option>
<option label="20" value="20">20</option>
<option label="21" value="21">21</option>
<option label="22" value="22">22</option>
<option label="23" value="23">23</option>
<option label="24" value="24">24</option>
<option label="25" value="25">25</option>
<option label="26" value="26">26</option>
<option label="27" value="27">27</option>
<option label="28" value="28">28</option>
<option label="29" value="29">29</option>
<option label="30" value="30">30</option>
<option label="31" value="31">31</option>
</select>
<select name="mesearrivo" class="mesearrivo" onchange="date_update()">
<option label="gennaio" value="01" selected="selected">gennaio</option>
<option label="febbraio" value="02">febbraio</option>
<option label="marzo" value="03">marzo</option>
<option label="aprile" value="04">aprile</option>
<option label="maggio" value="05">maggio</option>
<option label="giugno" value="06">giugno</option>
<option label="luglio" value="07">luglio</option>
<option label="agosto" value="08">agosto</option>
<option label="settembre" value="09">settembre</option>
<option label="ottobre" value="10">ottobre</option>
<option label="novembre" value="11">novembre</option>
<option label="dicembre" value="12">dicembre</option>
</select>
<select name="annoarrivo" onchange="date_update()" class="annoarrivo">
<option label="2006" value="2006" selected="selected">2006</option>
<option label="2007" value="2007">2007</option>
<option label="2008" value="2008">2008</option>
</select><br/>
Data di partenza:<select name="giornopartenza" onchange="date_update()" class="day">
<option label="01" value="01" selected="selected">01</option>
<option label="02" value="02">02</option>
<option label="03" value="03">03</option>
<option label="04" value="04">04</option>
<option label="05" value="05">05</option>
<option label="06" value="06">06</option>
<option label="07" value="07">07</option>
<option label="08" value="08">08</option>
<option label="09" value="09">09</option>
<option label="10" value="10">10</option>
<option label="11" value="11">11</option>
<option label="12" value="12">12</option>
<option label="13" value="13">13</option>
<option label="14" value="14">14</option>
<option label="15" value="15">15</option>
<option label="16" value="16">16</option>
<option label="17" value="17">17</option>
<option label="18" value="18">18</option>
<option label="19" value="19">19</option>
<option label="20" value="20">20</option>
<option label="21" value="21">21</option>
<option label="22" value="22">22</option>
<option label="23" value="23">23</option>
<option label="24" value="24">24</option>
<option label="25" value="25">25</option>
<option label="26" value="26">26</option>
<option label="27" value="27">27</option>
<option label="28" value="28">28</option>
<option label="29" value="29">29</option>
<option label="30" value="30">30</option>
<option label="31" value="31">31</option>
</select>
<select name="mesepartenza" class="mesepartenza" onchange="date_update()">
<option label="gennaio" value="01" selected="selected">gennaio</option>
<option label="febbraio" value="02">febbraio</option>
<option label="marzo" value="03">marzo</option>
<option label="aprile" value="04">aprile</option>
<option label="maggio" value="05">maggio</option>
<option label="giugno" value="06">giugno</option>
<option label="luglio" value="07">luglio</option>
<option label="agosto" value="08">agosto</option>
<option label="settembre" value="09">settembre</option>
<option label="ottobre" value="10">ottobre</option>
<option label="novembre" value="11">novembre</option>
<option label="dicembre" value="12">dicembre</option>
</select>
<select name="annopartenza" onchange="date_update()" class="annopartenza">
<option label="2006" value="2006" selected="selected">2006</option>
<option label="2007" value="2007">2007</option>
<option label="2008" value="2008">2008</option>
</select><br/>
Numero persone:<input type="text" name="persone" id="persone"/><br/>
Tipo di camera:</label><select name="camera" id="camera" class="camera" tabindex="180">
<option value="Doppia">Doppia</option>
<option value="Matrimoniale">Matrimoniale</option>
<option value="Tripla">Tripla</option>
<option value="Singola">Singola</option>
<option value="Doppia uso singola">Doppia uso singola</option>
<option value="Suite">Suite</option>
</select><br/>
Altre richieste:<textarea name="richieste" cols="30" class="contatti" onMouseOver="this.className='contatti2'" onMouseOut="this.className='contatti'" rows="3"></textarea><br/>
<input type="submit" id="nome" value="invia" onclick="inviomail.asp" class="button" tabindex="350" />
</form>
</body>
</html>
**
- La seconda** inviomail.asp
**<body>
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="server.smtp.com"
cdoConfig.Fields.Update

set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig

cdoMessage.From=Request.Form("email")
cdoMessage.To="[email protected]"
cdoMessage.Subject=Request.Form("subject")
cdomessage.HtmlBody="Nome:" & request.form("nome") & "<br/>Cognome:" & Request.form("cognome") & "<br/>Telefono:" & request.form("telefono")
& "<br/>Cellulare:" & request.form("cellulare") & "<br/>Email:" & request.form("email") & "<br/>Data di arrivo:" & request.form("giornoarrivo & mesearrivo & annoarrivo")
& "<br/>Data di partenza:" & request.form("giornopartenza & mesepartenza & annopartenza") & "<br/>Numero persone:" & Request.form("persone")
& "<br/>Tipo camera:" & Request.form("camera") & "<br/>Altre richieste:" & Request.form("richieste")
cdoMessage.Send

Set cdoMessage=Nothing
Set cdoConfig=Nothing
</body>
</html>Vi ringrazio per l'aiuto. Ma purtroppo è una cosa ke nn riesco a fare...
grazie a tutti

robtros

Ciao a tutti,

ho un grosso limite nel far funzionare il form!

è la prima volta che uso l'asp..e dunque è tutto un dire...

finchè devo costruire il form in html non vi è alcun problema...ma successivamente se uso solo l html l output che si riceve per mail è terribile, inutilizzabile!
è qui che ho la necessità di utilizzare l asp...

Ovviamente le voci che devo utilizzare nel form sono diverse da quelle sposte sopra ma intanto per capire il meccanismo ho provato a creare le due pagine e ad incollarvi il vostro codice....ma non funziona

io ho creato un anuova pagina asp attraverso dreamweaver e poi ho incollato il vostro codice prima dell head...sbagliato???