Olá pessoal, to precisando imensamente da ajuda de vocês de novo, estou com um problema para enviar e-mail, seguinte toda vez que eu mando e-mail pelo formulário eu recebo no meu endereço dois e-mails um com o formulário preenchido pelo cliente e o outro que era pra ser a resposta pro cliente, para entender abaixo vou relacionar os arquivos, me ajudem pois não sei fazer isso:
CDONTS:
Esse é o responsável pelo envio no meu e-mail, só falta a captura do remetente que esta no campo3:
<%
'Email para onde serão enviados os dados do formulário
email_form = "maktub@maktub.com.br"
'Título do email
assunto_form = "Fale Conosco"
'Servidor de email
servidor = "smtp.maktub.com.br"
'Componente para envio do email
componente = "CDONTS"
'Cabeçalho do texto do email recebido
cabecalho_email = "Contato via Web"
'*******************************************************************
%>
Essa parte é onde o cliente digita os dados do e-mail, bem como a parte que será enviada pra mim e outra com resposta ao cliente e o componente que faz isso:
nessa parte aqui não consigo capturar o e-mail do cliente (esta acima também), note que o remetente, destinatário é o mesmo email_form (não sei mas acho que isso esta fazendo com que eu envie dois e-mail´s pra mim, um com o formulário e um com a resposta que deveria ser do cliente:
Pergunta
maktub
Olá pessoal, to precisando imensamente da ajuda de vocês de novo, estou com um problema para enviar e-mail, seguinte toda vez que eu mando e-mail pelo formulário eu recebo no meu endereço dois e-mails um com o formulário preenchido pelo cliente e o outro que era pra ser a resposta pro cliente, para entender abaixo vou relacionar os arquivos, me ajudem pois não sei fazer isso:
CDONTS:
Esse é o responsável pelo envio no meu e-mail, só falta a captura do remetente que esta no campo3:
Essa parte é onde o cliente digita os dados do e-mail, bem como a parte que será enviada pra mim e outra com resposta ao cliente e o componente que faz isso:<% If Not IsEmpty(Request.Form) Then strMsg = "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" strMsg = strMsg & "<HTML><HEAD>" strMsg = strMsg & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>" strMsg = strMsg & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR></HEAD>" strMsg = strMsg & "<BODY><FONT face=Tahoma size=2><B>" & cabecalho_email & "</B><BR><BR>" strMsg = strMsg & "<B>Nome:</B><BR><BR>" & Trim(Request.Form("Campo1")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>e-mail:</B><BR><BR>" & Trim(Request.Form("Campo3")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Telefone:</B><BR><BR>" & Trim(Request.Form("Campo2")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Celular:</B><BR><BR>" & Trim(Request.Form("Campo4")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Segmento Desejado:</B><BR><BR>" & Trim(Request.Form("Campo5")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Tipo da transação:</B><BR><BR>" & Trim(Request.Form("Campo6")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Tipo do evento:</B><BR><BR>" & Trim(Request.Form("Campo7")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Endereço da instituição:</B><BR><BR>" & Trim(Request.Form("Campo8")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Complemento:</B><BR><BR>" & Trim(Request.Form("Campo9")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Bairro:</B><BR><BR>" & Trim(Request.Form("Campo11")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>CEP:</B><BR><BR>" & Trim(Request.Form("Campo10")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Cidade:</B><BR><BR>" & Trim(Request.Form("Campo12")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Estado:</B><BR><BR>" & Trim(Request.Form("Campo13")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "<B>Mensagem:</B><BR><BR>" & Trim(Request.Form("Campo14")) & "<HR size=1 color=gainsboro>" strMsg = strMsg & "</FONT></BOBY>" strMsg = strMsg & "</HTML>" strResposta = "<img src=""http://www.maktub.com.br/assets/spacerfaleconosco_tabela.gif"">" strResposta = strResposta & "Prezado (a) cliente" strResposta = strResposta & "<br><br>Sua mensagem foi enviada com sucesso" EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg, strResposta Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,Resposta) Select Case Componente 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 Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = NomeEmail & "<" & Email & ">" eObjMail.from = ParaEmail eObjMail.subject = "Seu contato" eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Resposta eObjMail.send Set eObjMail = nothing End Select End Function %>nessa parte aqui não consigo capturar o e-mail do cliente (esta acima também), note que o remetente, destinatário é o mesmo email_form (não sei mas acho que isso esta fazendo com que eu envie dois e-mail´s pra mim, um com o formulário e um com a resposta que deveria ser do cliente:Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.