Resposta Automatica

[sr.silva 1]

Olá!!Gostaria de estar criando um recurso de resposta automatica para os formularios do meu site.Apos o preenchimento de um formulario pelo usuario o mesmo iria receber uma resposta automatica.....Como consigo tal fato.... :blink:

[PedBolo 0]

supondo que o formulario seja de contato

 

você tem o script que envia o contato para seu email certo?

 

+- assim:

 

Set objEmail = Server.CreateObject("Com.Email")

objEmail.From = Request("Email")

objEmail.Recepient = "bruno@silva.com"

objEmail.Recepient = Request("Mensagem")

objEmail.Send()

Set objEmail = Nothing

 

Set objEmail = Server.CreateObject("Com.Email")

objEmail.From = "bruno@silva.com"

objEmail.Recepient = Request("Email")

objEmail.Recepient = "Mensagem Automatica"

objEmail.Send()

Set objEmail = Nothing

 

como naum testei, naum sei se vai funcionar.

 

naum recomendo usar o mesmo objeto, se você observar eu criei ele d novo para a resposta, pos alguns componemtes pode acumular os emails, e no final ao invens de mandar somente a resposta, vai o email de contato para o internauta tambem.

 

se acusar erro na hora de recriar o objeto da resposta, tente mudar o nome dele por ex: objEmail2

 

ateh

[sr.silva 1]

Seguinte galera!!Era isso mesmo que estava precisando fazer!!!Irei coloca-lo em prática e daqui a pouco estarei postando o resultado..muito obrigado pela ajuda![]´s

[sr.silva 1]

Olá!!Gostaria de saber qual e o componente de envio de email mais rapido na web, digo issopois estou utilizando o CDONTS e putz...cara!!! demora pacas! para o email chegar....Será que alguem poderia me orientar quanto esse espera, espera pelo meu email chegar.....Qual componente hoje e mais "RAPIDO'?!?!?!?!?

[sr.silva 1]

Como devo fazer para agilizar a chegada do email....

[PedBolo 0]

1 - primeiro você tem que ver a qual componentes seu servidor suporta...2 - escolha algum comp. q necessita inserir o SMTP

[sr.silva 1]

'--------INICIO DO CODIGO CDONTS-----------------'Set objmail		= Server.CreateObject("CDONTS.NewMail") objmail.From	   =  StrEmail 'DEobjmail.to		 = "email@email.com.br"objmail.subject	= "&StrDescricaoModulo&" - "& StrContato&" - "&StrEstado&""objmail.Body	   = strDescricao objmail.BodyFormat = 0objmail.MailFormat = cdoMailFormatTextobjmail.sendSet objmail = nothing

'----------------------- INICIO CODIGO DE RESPOSTA AUTOMATICA ------------------'Set objmailreturn		= Server.CreateObject("CDONTS.NewMail")objmailreturn.From	   = "xxxxxxxxxxxxxxxxxxxxxx" ' DEobjmailreturn.to		 = StrEmail								 'PARAobjmailreturn.subject	= "Resposta Automática "objmailreturn.Body	   = strRespostaAutomaticaobjmailreturn.BodyFormat = 0objmailreturn.MailFormat = cdoMailFormatTextobjmailreturn.sendSet objmailreturn = nothing

Estou usando esses codigo para enviar o EMAIL ao destinatario e ao mesmo tempo mandar uma resposta automatica para o cara que preencheu o form!!!!!!

 

Como faco para que essa resposta automatica seja mais rapida!

[sr.silva 1]

Sera que o component ASPEmail satisfaz a minha necessidade?????

[sr.silva 1]

Na verdade esta funcionando corretamente com o CDONTS.So que como pode ver, e a resposta automatica que nao esta chegando para o email do usuario...Nos comecos dos teste, estava funcionando o cara preenchia o formulario e automaticamente ia uma MSG para ele.So que agora......nada!!

[sr.silva 1]

<%StrEmpresa 	  = Request.Form("empresa")StrAtividade 	  = Request.Form("atividade")StrContato					  = Request.Form("contato")StrTelefone 	  = Request.Form("telefone")StrDeseja_Contato	   = Request.Form("deseja_contato")StrEmail 					  = Request.Form("email")'----------------------------------------------------------------------------------'  If StrModulo = "" Then	Response.Redirect("solicitacao_orcamento.asp?produto=1&acao=orcamento")  end if'------------------------INICIO DA DESCRICAO DOS MODULOS ESCOLHIDOS---------------'  SQL = " SELECT * FROM TABELAS_GENERICAS"  SQL = SQL & " WHERE "  SQL = SQL & "   TG_CODIGO = "&StrModulo&" "	  Set RS = Cnn.execute(SQL)	    StrDescricaoModulo = RS("TG_DESCRICAO")'---------------------INICIO DO CORPO DO EMAIL EM FORMATO HTML----------------------' StrDescricao = " <table width='100%' border='0' cellpadding='0' cellspacing='0'>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td colspan='3' valign='top' bgcolor='CC3333'> <div align='left'><font color='#FFFFFF' size='2' face='Verdana, Arial, Helvetica, sans-serif'> "StrDescricao = StrDescricao & " <strong>Solicitação de Orçamento</strong></font></div></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td height='19' valign='top'> </td>"StrDescricao = StrDescricao & " <td width='83%' colspan='2' valign='top'> </td>" S& " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>Contato:</strong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'> <font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrContato&""StrDescricao = StrDescricao & " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>Telefone:</strong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'> <font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrTelefone&""Sstrong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrEmail&""StrDescricao = StrDescricao & " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>Endereço:</strong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrEndereco&""StrDescricao = StrDescricao & " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>Cidade:</strong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrCidade&""StrDescricao = StrDescricao & " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>CEP:</strong></font></td>"StrDescricao = StrDescricao & " <td colspan='2' valign='top'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"&StrCEP&""StrDescricao = StrDescricao & " </font></td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " <tr> "StrDescricao = StrDescricao & " <td height='26'><font size='2' face='Verdana, Arial, Helvetica, sans-StrDescricao = StrDescricao & " <td colspan='3' valign='top' bgcolor='CC3333'> </td>"StrDescricao = StrDescricao & " </tr>"StrDescricao = StrDescricao & " </table>"

 

'----------------------- CORPO MENSAGEM AUTOMATICA ----------------------------'strRespostaAutomatica = "Mensagem Automatica"

'-----------------------INICIO DO CODIGO CDONTS---------------------------------'Set objmail		 = Server.CreateObject("CDONTS.NewMail") objmail.From	   = StrEmail ' DEobjmail.to		   = "email@email.com.br"objmail.subject	= "Solicitacao de Orcamento - "&StrDescricaoModulo&" - "&StrEmpresa&" -objmail.Body	   = strDescricaoobjmail.BodyFormat = 0objmail.MailFormat = cdoMailFormatTextobjmail.sendSet objmail = nothing

 

'----------------------- INICIO CODIGO DE RESPOSTA AUTOMATICA ------------------'Set objmailreturn		= Server.CreateObject("CDONTS.NewMail")objmailreturn.From	   = "Fulano de Tal" ' DEobjmailreturn.to		 = StrEmail								 'PARAobjmailreturn.subject	= "Resposta Automática "objmailreturn.Body	   = strRespostaAutomaticaobjmailreturn.BodyFormat = 0objmailreturn.MailFormat = cdoMailFormatTextobjmailreturn.sendSet objmailreturn = nothingResponse.Redirect("solicitacao_orcamento.asp?produto=1&acao=orcamento&msg=2")

esse e o codigo que estou utilizando....

[sr.silva 1]

O problema todo esta no fonte de envio de mensagem automatica...Por que o formulario esta sendo enviado corretamente para o email!!

[sr.silva 1]

Ué, cara mais e isso que estou fazendo!!!Ou estou engando, me moste por favor!

[PedBolo 0]

Bruno,o CDONTS usa o smtp do destinatario... por isso demora... usa o ASPEmail como você mesmo sugeriu, e acuse o seu smtp...ateh

[salmeida 0]

cara estou numa compicação com esse negocio de auto resposta aqui!!!...

[sr.silva 1]

'----------------------- INICIO CODIGO DE RESPOSTA AUTOMATICA ------------------'Set objmailreturn		= Server.CreateObject("CDONTS.NewMail")[b]objmailreturn.From	   = "email@empresa.com.br" ' DE[/b]objmailreturn.to		 = StrEmail								 'PARAobjmailreturn.subject	= "Resposta Automática "objmailreturn.Body	   = strRespostaAutomaticaobjmailreturn.BodyFormat = 0objmailreturn.MailFormat = cdoMailFormatTextobjmailreturn.sendSet objmailreturn = nothingResponse.Redirect("solicitacao_orcamento.asp")

Seguinte como o lucasBR havia dito usei o codigo acima, e o fonte esta funcionando perfeitamente.....

O que eu estava complicado era colocando um TEXTO FIXO no lugar do email -----na area em negrito.

 

No mais, meus agradecimentos..