Oggetto CDONTS
Salve a tutti,
forse per la maggior parte di tutti voi sarà un problema ormai risolto già da lungo tempo, purtroppo, per me che mi sto avvicinando solo adesso è ancora un grosso problema.
Vengo alla domanda.
ho provato ad implementare in un form il codice per inviare una email all'ipotetico acquirente ma non funziona, dovrei forse configurare qualche libreria particolare per far dunzionare l'oggetto CDONTS.
questo è il codice che ho usato.
#503 - Inviare un'e-mail con CDONTS da un template su file
Non è raro che il testo di un'e-mail da generare automaticamente sia scritto all'interno dello script.
Si tratta di un approccio giusto, ma non comodissimo dal punto di vista della praticità: per cambiare la forma dell'e-mail dovremo andare ad intervenire sullo script.
Una soluzione potrebbe essere quella di utilizzare un file esterno, composto da segnaposto sostituisci a runtime.
Ecco un esempio:
Caro ##NOME##,
grazie per il tuo ordine, che invieremo all'indirizzo ##INDIRIZZO##.
Per qualsiasi informazione ti contatteremo all'indirizzo ##EMAIL##.
Ci basterà salvare questo file come ordine.txt ed inserirlo nella stessa directory dello script che segue, che preleverà i parametri dalla form e li invierà via posta:
<%
Set FSO=CreateObject("Scripting.FileSystemObject")
set instream = Fso.OpenTextFile(Server.MapPath("ordine.txt"))
Messaggio = instream.ReadAll
instream.Close
set instream = nothing
set FSO = nothing
'replace
Messaggio = Replace(Messaggio, "##EMAIL##", request("email"))
Messaggio = Replace(Messaggio, "##NOME##", request("nome"))
Messaggio = Replace(Messaggio, "##INDIRIZZO##", request("indirizzo"))
'CDONTS
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Send "mittente@dominio", "destinatario@dominio", "ordine", Messaggio, 0
Set objMail = nothing
%>
:master:
Rispondi quotando
