ciao a tutti,
sto tentando di inviare un email partendo da un form.quando cerco di ricevere il campo email ed inserirlo nella variabile Mittente non mi invia più il messaggio. vi posto il codice e vi chiedo aiuto!!!![]()
grazie
<center>
<form action="/newsend.asp" method="post">
IL TUO NOME
<input name="nome" type="text" value="inserisci qui il tuo nome" size="45">
IL TUO INDIRIZZO EMAIL
<input name="email" type="text" value="inserisci qui il tuo indirizzo email" size="45">
OGGETTO DEL MESSAGGIO
<input name="oggetto" type="text" value="inserisci qui l'oggetto del tuo messaggio" size="45">
CORPO DEL MESSAGGIO
<textarea cols="50" rows="15" name="corpo">inserisci qui il corpo del tuo messaggio</textarea>
<input type="submit" name="pulsante" value="invia">
</form>
</center>
<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = "mymail@tele2.it"
Mittente = request.form("email")
Oggetto = request.form("oggetto")
Testo = request.form("corpo")
'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")
'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto
'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.TextBody = Testo
'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Va lue = 2
eMail.Fields.Update()
'Inviamo la mail!
eMail.Send()
'Eliminiamo l'oggetto...
Set eMail = Nothing
%>

Rispondi quotando