Formulário Fale Conosco com ASPMail

Script completo desenvolvido para que você possa colocar em seu site um formulário que envia automaticamente a mensagem para seu e-mail. Utiliza o componente ASPMail.

o codigo se divide em 3 páginas:
– default.asp
– enviar.asp
– obrigado.asp

pagina default.asp
















Nome:







E-mail:







Assunto:







Mensagem:






 

















pagina enviar.asp

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = "[email protected]"
sNameTo = "Nome do Site"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")

'Cria o objeto
  set mailer = server.createobject("SMTPsvg.Mailer")
  Mailer.FromName = sNameFrom
  Mailer.FromAddress = sEmailFrom
'Host para envio de emails
  Mailer.RemoteHost = "smtp2.locaweb.com.br"
  Mailer.AddRecipient sEmailTo, sNameTo
  Mailer.Subject = sAssunto  & " - E-mail"

'Monta a texto para o envio
  strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
  strMsgFooter = sText
  Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
  if Mailer.SendMail then
     Response.Redirect "obrigado.asp"
  else
' Se não for enviado mostra o erro que ocoreu
     Response.Write ("Ocorreu um erro.
")
     Response.Write ("O Erro é " & Mailer.Response)
  end if
%>

pagina obrigado.asp







Muito Obrigado !!

Sua Mensagem foi enviada com sucesso.

Tags:

• ASP,
• ASPMAIL,
• Bate Papo e Email,
• VbScript