Originariamente inviato da Giuseppe C
Normalmente uso CDOSYS
codice:
<%
Option Explicit
Dim cdoMail, strIp, strMessage
Set cdoMail = Server.CreateObject("CDO.Message")
strIp = Request.ServerVariables("REMOTE_ADDR")
strMessage=strMessage & "nome: " & Request.Form("nome") & vbCrlf 
strMessage=strMessage & "cognome: " & Request.Form("cognome") & vbCrlf 
strMessage=strMessage & "telefono: " & Request.Form("telefono") & vbCrlf
strMessage=strMessage & "e-mail: " & Request.Form("email") & vbCrlf
strMessage=strMessage & "l'indirizzo IP è: " & strIp & vbCrlf 
strMessage=strMessage & "data ed ora di invio: " & Now() & vbCrlf 
strMessage=strMessage & "messaggio: " & Request.Form("testo") & vbCrlf
With cdoMail
.From=Request.Form("email") 'mittente
.To="destinatario@destinatario.it"
.Subject="e-mail proveniente dal sito"
.TextBody=strMessage
.Send
End With
set cdoMail=Nothing
if err.number then
Response.Write "error=true"
else
Response.Write "error=false"
end if
%>
oppure:
http://vademecum.aruba.it/start/cont...tto.htm#cdosys