<% if request("botao") = "enviar" then 'Create the mail object Set objMail = Server.CreateObject("CDO.Message") 'Set key properties objMail.From = "emailareceberoformulario@seudominio.com.br" objMail.To = request.form("to") objMail.Subject= request.form("subject") objMail.TextBody = request.form("body") 'Send the email return = objMail.Send 'Notify user if return <> 0 then response.write "Erro: " & return else response.write "Mensagem enviada com sucesso." end if 'Clean-up mail object Set objMail = Nothing end if %> CDONT TEST

CDOSYS TEST

To:
Subject:
Message: