Dall'archivio script > Classic ASP

Inviare un'e-mail con CDONTS da un template su file

di Daniele BochicchioDaniele Bochicchio, in Classic ASP, E-mail, Tips,

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

Visualizza/aggiungi commenti

| Condividi su: Twitter, Facebook, LinkedIn
Aggiorna

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

I più letti di oggi