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.aspFale Conosco CódigoLivre :.: iMasters (Exemplo) 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.aspFale Conosco CódigoLivre :.: iMasters (Exemplo)
Muito Obrigado !!
Sua Mensagem foi enviada com sucesso.