<%@ LANGUAGE = "VBScript" %><%
Set Mail = Server.CreateObject("Persits.MailSender") 'Instancia o objeto
Mail.Host = "smtp.servidor.com.br"
Mail.FromName = Request.form("nome")
Mail.From = Request.form("email") ' Remetente do formulário
Mail.AddAddress "azevedorv84@gmail.com" ' Destinatário do formulário
Mail.Subject = Request.form("assunto") ' Assunto do formulário
Mail.Body = Request.form("mensagem")
On Error Resume Next
Mail.Send ' Envia o e-mail
If Err <> 0 Then
Response.Write "Falha no envio !"
else
Response.Write "Mensagem Enviada."
End If
%>
.gif){kind=small}
.gif){kind=small}
