Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

maktub

Definir o envio

Por , em ASP Clássico

Recommended Posts

maktub    0

maktub
Postado

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árioemail_form = "maktub@maktub.com.br"'Título do emailassunto_form = "Fale Conosco"'Servidor de emailservidor = "smtp.maktub.com.br"'Componente para envio do emailcomponente = "CDONTS"'Cabeçalho do texto do email recebidocabecalho_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, strRespostaFunction EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,Resposta)Select Case ComponenteCase "CDONTS"on error resume nextSet eObjMail = Server.CreateObject("CDONTS.NewMail")eObjMail.to = ParaEmaileObjMail.from = NomeEmail & "<" & Email & ">"eObjMail.subject = AssuntoeObjMail.Importance = 1eObjMail.BodyFormat = 0eObjMail.MailFormat = 0eObjMail.body = Mensagem		eObjMail.sendSet eObjMail = nothingSet eObjMail = Server.CreateObject("CDONTS.NewMail")eObjMail.to = NomeEmail & "<" & Email & ">"eObjMail.from = ParaEmaileObjMail.subject = "Seu contato"eObjMail.Importance = 1eObjMail.BodyFormat = 0eObjMail.MailFormat = 0eObjMail.body = RespostaeObjMail.sendSet eObjMail = nothing		End SelectEnd 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, strRespostaFunction EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,Resposta)

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

repare a sintaxe da sua função:Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem,Resposta)repare os parametros q você está mandando para a função:EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg, strRespostaHost = servidorComponente = componenteEmail = email_form <<<<<<<<<<<<NomeEmail = email_form <<<<<<<<<<<ParaEmail = email_form <<<<<<<<<Assunto = assuntoMensagem = strMsgResposta = strRespostaou seja.. tanto o email de destino qto o de origem você esta mandando o mesmo... passe os parametros corretamente...falow

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito