Modifica CDOSYS

[Shaolin20]

Ciao,

ho creato un form per l'invio di una mail che richiede l'iscrizione ad una newsletter. Il form ha due campi, "nome" ed "e-mail".

La pagina ASP (ne ho presa una preimpostata) usa il componente CDOSYS, e richiede di inserire un mittente predefinito per tutte le mail.

A me servirebbe invece di impostare come mittente, il testo inserito nel campo del form.

Sapete darmi una mano? Vi ringrazio.

Di seguito posto i codici per chiarezza:

PAGINA ASP
-------------------------------------------------------------------
<%

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

invioA = "mail@nomedominio.it"

invioDa = "mail@nomedominio.it"

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

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

DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.nomesito.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>
---------------------------------------------------------------------

[teorema55]

Questo fa esattamente quello che tu vuoi, lo scrive nel campo "Da".........se preferisci avere la mail dell'utente anche nel campo "Mittente" sostituisci all'inizio

invioDa = "mail@nomedominio.it"

con

invioDa = Request.Form("email")

che, tuttavia, rimanendo com'è, ti avvisa da quale dominio arriva il contatto (utile se ne hai più di uno). In ogni caso, comunque, c'è una ripetizione: questo script, che uso anch'io, andrebbe un pochino sistemato........

[Shaolin20]

Ti ringrazio,

penso sia proprio quello che intendevo. Ora lo provo.

Mi serviva che il testo inserito nel campo "email" fosse il mittente perchè la mail è destinata ad un programma di mailing list che risponde direttamente al mittente per confermare l'iscrizione.

[cavicchiandrea]

Il campo mittente e un campo obbligatorio nel caso che l'indirizzo email del destinatario sia errato o inesistente.
Una soluzione potrebbe essere questa

invioDA = Request.Form("tuo_campo_testo")&"<"&Request.Form("email")&">"

Se ho capito bene

ciao

[Shaolin20]

non è che ne ho proprio capito la funzione...

me la spiegheresti?

[Shaolin20]

Grazie teorema,

l'ho provato e và tutto bene.

[teorema55]

Oooook, buon lavoro.

[zeweb]

Non capisco una cosa io ho sistemato questo script grazie ai vostri consigli ma vorrei inserire nel corpo del messaggio alcuni campi i campi del form (Azienda, Cognome, email, Citta, Telefono, Sito, Messaggio) e le checkbox che vengono selezionate.

Mi aiutate

<%
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
invioA = "xxx@xxx.com"
invioDA = Request.Form("cognome")&"<"&Request.Form("email")&">"

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

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

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 sito " & 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
%>

<%
Response.Write("<span class='txt'>Grazie per averci contattato, ora verrete inviati alla homepage.</span>")
%>

<form name="contatti" method="post" action="/mail.asp" onsubmit="return Verifica();">
                  <table width="400"  border="0" cellpadding="2" cellspacing="0">
                    <tr>
                      <td class="txt"><div align="right">Azienda</div></td>
                      <td><input name="azienda" type="text" class="campiform" id="azienda" style=" background-color: #444444;" size="30">                        </td>
                      </tr>
                    <tr>
                      <td class="txt_form"><div align="right"><span class="txt">Cognome*</span></div></td>
                      <td><input name="cognome" type="text" class="campiform" id="cognome" style=" background-color: #444444;" size="30"></td>
                    </tr>
                    <tr>
                      <td class="txt_form"><div align="right"><span class="txt">E-mail*</span></div></td>
                      <td><input name="email" type="text" class="campiform" id="email" style=" background-color: #444444;" size="30"></td>
                    </tr>
                    <tr>
                      <td class="txt_form"><div align="right"><span class="txt">Citt&agrave;</span></div></td>
                      <td><input name="citta" type="text" class="campiform" id="citta" style=" background-color: #444444;" size="30"></td>
                    </tr>
                    <tr>
                      <td class="txt_form"><div align="right"><span class="txt">Telefono</span></div></td>
                      <td><input name="telefono" type="text" class="campiform" id="telefono" style=" background-color: #444444;" size="30"></td>
                    </tr>
                    <tr>
                      <td class="txt_form"><div align="right"><span class="txt">Sito</span></div></td>
                      <td><input name="sito" type="text" class="campiform" id="sito" style=" background-color: #444444;" size="30"></td>
                    </tr>
                    <tr valign="top">
                      <td class="txt_form"><div align="right"><span class="txt">Messaggio*</span></div></td>
                      <td><textarea name="messaggio" cols="64" rows="7" class="campiform" id="messaggio" style=" background-color: #444444;"></textarea></td>
                    </tr>
                    <tr>
                      <td class="txt"></td>
                      <td class="txt">Come ci hai trovato //almeno una scelta</td>
                    </tr>
                    <tr>
                      <td></td>
                      <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td width="6%"><input name="motori" type="checkbox" id="motori" value="si" /></td>
                          <td width="46%"><span class="txt">Motori di ricerca</span></td>
                         <td width="48%"><input name="specificare" type="text" class="campiform" id="specificare" style=" background-color: #444444;" value="specificare" size="30"></td>
                        </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td></td>
                      <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                        <tr>
                          <td width="5%"><input name="sito" type="checkbox" id="sito" value="si" /></td>
                          <td><span class="txt">Link da un'altro sito</span><span class="txt"><span class="txt_form">
                          </span></span></td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td></td>
                      <td>                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="5%"><input name="amico" type="checkbox" id="amico" value="checkbox"></td>
                            <td width="95%"><span class="txt">Consigliato da un amico</span></td>
                          </tr>
                        </table></td>
                      </tr>
                    <tr>
                      <td></td>
                      <td>
                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                        <tr valign="top">
                          <td width="5%">
                          <input name="privacy" type="checkbox" value="1" checked></td>
                          <td width="95%"><span class="txt">Inviando questa mail vi autorizzo al trattamento dei miei dati personali (legge 675 del 31/Dicembre/1996).</span></td>
                        </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td></td>
                      <td>
<input name="Cancella" type="reset" class="bottonform"  value="Reset">
                        <input name="Submit" type="submit" class="bottonform" value="Invia"></td>
                    </tr>
                  </table>
</form>

Grazie a tutti