Questo è lo script che uso io, adattalo alle tue esigenze. 
codice:
<%
'recupero i campi della form
strNome=trim(request.form("nome"))
strCognome=trim(request.form("cognome"))
strEmailMitt=trim(request.form("emailmitt"))
strEmailDest=trim(request.form("emaildest"))
strMessaggio=trim(request.form("messaggio"))
strMessaggio=replace(strMessaggio, vbcrlf, "
")
if (strNome <> "") AND (strCognome <> "") AND (strEmailMitt <> "") AND (strEmailDest <> "") AND (strMessaggio <> "") then
on error resume next
strFrom = "Pippo.it"
sBody = "Questa mail ti è stata inviata da "& strNome & " " & strCognome &":
"
sBody = sBody & strMessaggio &"[/b]
"
sBody = sBody & "Segnalazione del: " & now()
'istanzio le costanti per invio
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = strEmailDest
.From = strFrom
.Sender = strEmailMitt
.Subject = "Segnalazione Sito Pippo.it"
.HTMLBody = "" & sBody & ""
.Send
End With
'fine nuovo
if err.number > 0 then
strOutput= "Si è verificato un errore nell'invio del codice"
else
strOutput ="Sito Segnalato correttamente!!!"
end if
end if
%>
Rispondi quotando
