<%
if(request("Send")="Enviar") then
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = False
' dados para autenticacao no servidor SMTP
Mail.Host = "localhost"
Mail.Username = "contato@bancodcurriculo.com"
Mail.Password = "amanda1211"
' email de origem
Mail.From = Request.Form("fromemail")
Mail.FromName = Request.Form("FromName")
Mail.AddAddress "contato@bancodcurriculo.com"
Mail.Subject = Request.Form("Subject")
Mail.Body = Request.Form("Body")
On Error Resume Next
' enviar email
Mail.Send
' codigo opcional para exibir mensagem de sucesso ou nao ao enviar o email
If Err <> 0 Then
Response.Write "
Ocorreu um erro: " & Err.Description & "
"
End If
If Err = 0 Then
'Response.Write("
Obrigado, seu e-mail foi enviado com sucesso!
")
Response.Redirect "confirmacao.asp"
End If
Set Mail = Nothing
end if
%>
Faltou
alguma informação? Sua opinião é muito
importante... Fale Conosco!!!
Qualquer
informação que desejar enviaremos ou entraremos em contato para
lhe informar. Para melhor atendê-lo, deixe seu telefone de contato