|
Asp
Email - invio di messaggi di posta da una pagina web
L'invio
di messaggi ed allegati tramite una pagina web è a qualche
riga di codice da voi!
Create
prima una pagina web "modulo.html" con un form di immissione
dati, e successivamente una pagina "conferma.asp", che
effettuerà l'invio del messaggio.
==========ESEMPIO FORM DI IMMISSIONE DATI========
<form
action=conferma.asp method=post>
<input type=text name=cliente>
<input type=text name=indirizzo>
<input type=text name=messaggio>
<input type=submit name=inviadati value="Invia Dati">
</form>
Inserite
nella vostra pagina conferma.asp il seguente codice, sostituendo
i parametri in grassetto con i vostri dati.
==========INIZIO
PAGINA CONFERMA.ASP=========
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.vostrodominio.it" '
Indicare il vostro dominio
Mail.From = "info@vostrodominio.it" '
Indicare l'indirizzo del mittente
Mail.FromName = "Azienda ABC"
' Specificare il nome del mittentee
Mail.AddAddress
"m.rossi@dominioXYZ.it", "Marco Rossi"
' Il destinatario
Mail.AddAddress "paolo@dominioXYZ.it"
' Altri destinatari opzionali
Mail.AddReplyTo "info@vostrodominio.it" '
Indirizzo per la risposta
Mail.AddAttachment "d:\path-reale\listino.doc"
' Allegato Opzionale
Mail.Subject
= "Grazie di aver contattao!"
Mail.Body = "Gentile Cliente," & Chr(13) &
Chr(10) &
"Grazie di averci visitato!"
On
Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<HTML>
Inizio
codice html della pagina. (Di solito un messaggio di conferma.)
</HTML>
==========FINE
PAGINA CONFERMA.ASP=========
Questo
esempio invierà ai destinatari il testo:
Gentile Cliente,
Grazie di averci visitato!
Se volete che il messaggio contenga anche
i campi del form dati, all'inizio della pagina conferma.asp
sarà da includere una riga aggiuntiva per ciascun campo,
con il REQUEST di questi campi.
Esempio:
cliente=Request.Form("cliente")
indirizzo=Request.Form("indirizzo")
messaggio=Request.Form("messaggio")
Sostituite
la stringa
Mail.Body = "Gentile Cliente," con
Mail.Body
= cliente + indirizzo + messaggio
Per
gli utenti più esperti un suggerimento:
Per "accodare TUTTI i campi" senza fare il post e request
di ogni campo del form, nella pagina di conferma potete usare qualcosa
come:
For
each i in Request.Form
if i <> "inviadati" then
messaggio = messaggio & i & ": " & Request.Form(i)&chr(13)&Chr(10)
end if
next
Per
ulteriori informazioni consultare il manuale alla Persits
Software
Se
riscontrate delle difficoltà potete scaricare da qui sotto
un esempio funzionante. Personalizzate il form e impostate gli indirizzi
e-mail che fanno il vostro caso.
 ESEMPIO.ZIP
|
