Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Guest --viviane --

formulario com envio de e-mails

Question

Guest --viviane --

Ola amigos

gostaria de alguma ideia de voces...

O visitante ao preencher um formulario na pagina do site, quero que:

- eu receba os dados que ele preencheu em meu email

- ao mesmo tempo gostaria que armazenasse estes dados em um banco access no mesmo local do site, simples mesmo

- ao mesmo tempo o visitante receba um email com uma carta personalizada com alguns de seus dados digitados por ele no formulario

alguém tem alguma ideia?

obrigada

Viviane

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0
Guest Ajudando por gostar de ajudar

Nome da página: configuracao.asp

NOTA: esta página configura o servidor de e-mail.

<% 
CfgHost = "mail.SEUSITE.com"
CfgComponente = "AspMail" 
Application("Host") = CfgHost
Application("Componente") = CfgComponente
%>
Nome da página: send_mail.asp NOTA: esta página é a função que indentifica o conponente indicado por você na página de configuração acima.
<%
Function Enviar_Email(Host,ComponenteTipo,Email,NomeEmail,ParaEmail,Assunto,Mensagem)
Select Case Componente
Case "SMTPsvg"
on error resume next
Set eObjMail = Server.CreateObject("SMTPsvg.Mailer")
eObjMail.FromName = NomeEmail
eObjMail.FromAddress = Email
eObjMail.RemoteHost = Host
eObjMail.AddRecipient "", ParaEmail
eObjMail.Subject = Assunto
eObjMail.ContentType = "text/html"
eObjMail.BodyText = Mensagem 
eObjMail.SendMail
Set eObjMail = nothing

Case "AspEmail"
on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem 
eObjMail.Send
Set eObjMail = nothing

Case "CDONTS"
on error resume next
Set eObjMail = Server.CreateObject("CDONTS.NewMail")
eObjMail.to = ParaEmail
eObjMail.from = NomeEmail & "<" & Email & ">"
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = Mensagem 
eObjMail.send
Set eObjMail = nothing

Case "JMAIL"
Set objJMail = Server.CreateObject("JMail.SMTPMail")
objJMail.ServerAddress = host
objJMail.Sender = Email
objJMail.SenderName = NomeEmail
objJMail.AddRecipient ParaEmail
objJMail.Subject = Assunto
objJMail.HTMLBody = Mensagem
objJMail.Priority = 3 
objJMail.Execute                
Set objJMail = Nothing

Case Else
'AspEmail
on error resume next
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = Host
eObjMail.From = Email
eObjMail.FromName = NomeEmail
eObjMail.AddReplyTo Email
eObjMail.AddAddress ParaEmail
eObjMail.Subject = Assunto
eObjMail.isHTML = true
eObjMail.Body = Mensagem 
eObjMail.Send
Set eObjMail = nothing    
End Select
End Function
%>
Nome da página: send_mail_action.asp NOTA: esta é a página usada como ação de seu formulário.
<!--#include file="configuracao.asp"-->
<!--#include file="send_mail.asp"-->
<% 
Nome = request.Form("nome")
Telefone = request.Form("telefone")
mensagem_contato  = request.Form("mensagem")
Assunto = request.Form("assunto")
Mail_destinatário = "[email protected]_DO_DESTINATÁRIO.com"
FromEmail = "[email protected]"
ParaEmail = Mail_destinatário
var_email = FromEmail
var_nome = "NOME_DO_MAIL(geralmente relacionado ao serviço, ex: pedido de senha)"
var_email_para = ParaEmail
var_assunto = Assunto
var_mensagem = "Sua mensagem aqui"
Enviar_Email Application("Host"), Application("Componente"), var_email, var_nome, var_email_para, var_assunto, var_mensagem
' página de resposta
response.Redirect("mail_sucesso.asp")
%>

NOTAS GERAIS: todas as páginas devem estar no mesmo diretório, caso contrário não funcionará, caso tenha dificuldades peça ajuda aqui mesmo em seu tópico, boa sorte para você.

Forte abraço fica com Deus.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

Cloud Computing


  • Forum Statistics

    • Total Topics
      148593
    • Total Posts
      644312
×
×
  • Create New...