Aiuto invio email

pasquy99

Nuovo Utente
14 Lug 2008
3
0
0
Salve sono un nuovo utente.
Complimenti per il forum, spero di ricavarne anche io qualche profitto o meglio qualche insegnamento.
Vengo al dunque, mi sono buttato sull'asp da poco, ho creato un modulo per invio mail ma non funziona...
ma devo salvare entrambi i file in .asp?

Ecco i due codici:

Codice:
<form name="form" id="form" method="post" action="inviata.asp">
<p>Mittente:<br /><input name="mittente" type="text" id="mittente" size="40" /></p>
 </p>
<p>Oggetto:<br /><input name="oggetto" type="text" id="oggetto" size="40" /></p>
<p>Messaggio:<br /><textarea name="messaggio" cols="80" rows="7" id="messaggio"></textarea></p>
<p><input type="submit" name="Submit" value="Invia Email" /> &nbsp;<input type="reset" name="submit2" value="Riscrivi Email" /></p>



IL secondo:
Codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><%
Dim iMsg, iConf, Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True 

mittente= Trim(Request.Form("mittente"))
destinatario = "[email protected]"
oggetto = Trim(Request.Form("oggetto"))
messaggio = Trim(Request.Form("messaggio"))

With iMsg
Set .Configuration = iConf
.From = mittente
.To = destinatario
.Subject = oggetto
.TextBody = messaggio 
.Send()
end with
set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>

Grazie a tutti in anticipo
 
Risp

Va alla pagina seguente come se avessi inviato l email...
pero niente, non arriva un bel niente... strano no?
 

Discussioni simili