Ir para conteúdo
Fórum Script Brasil
  • 0

Definir O Envio


maktub

Pergunta

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:
<%
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:
  EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg, strResposta
Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,Resposta)

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...