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
%>Commenti
Per inserire un commento, devi avere un account.
Fai il login e torna a questa pagina, oppure registrati alla nostra community.
Approfondimenti
Nessuna risorsa collegata
