Ir para conteúdo

POWERED BY:

Arquivado

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

fabricio2009

[Resolvido] Enviando dados do formulário para e-mail

Por , em ASP Clássico

Recommended Posts

fabricio2009    0

fabricio2009
Postado

Pessoal estou com um problema no envio de dados do formulário para o e-mail.

 

Seguinte tenho um formulário nome do arquivo faleconosco.asp, só que quando é preenchido la na página onde se encontra o formulário fale conosco, o e-mail chega só que em branco não aparece os dados que foram preenchidos.

 

Eu recebo o e-mail só que nenhuma informação.

 

Alguém sabe o que pode ser?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Falar sem ver como foi desenvolvido é como ligar a bola de cristal.

O formulario que contem as informações que serão enviadas por e-mail pode ser até em .html, o que importa é como está desenvolvido a parte que processa o formulario e envia isso para o e-mail.

Usa CDONTS ? ASPMAIL? o que o formulário realmente faz? É um mailto:eu@meudominio ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabricio2009    0

fabricio2009
Postado

O Formulário (faleconosco.asp) é esse:

 

 

 

<!--#include file="topo.asp"-->
    <script type="text/javascript" src="/javascript/custom-form.js"></script><head>
    <link href="/css/institucional.css" rel="stylesheet" type="text/css" />

<script language="JavaScript">
<!--
     function Validate(form){
           if(form.Nome.value == ""){
                alert("Por favor, digite o seu nome completo!");
                form.Nome.setfocus;
                return false;
           }else if(form.Cidade.value == "") {
                alert("Por favor, digite o nome da sua cidade!");
                form.Cidade.setfocus;
                return false;
           }else if(form.Estado.value == "") {
                alert("Por favor, digite o nome do seu estado");
                form.Estado.setfocus;
                return false;
           }else if(form.Email.value == "") {
                alert("Por favor, digite o e-mail de contato!");
                form.Email.setfocus;
                return false;
           }else if(form.Email.value.match(/(\w+)@(.+)\.(\w+)$/) == null) {
                alert("Por favor, digite um e-mail válido!");
                form.Email.setfocus;
                return false;
           }else if(form.Assunto.value == "") {
                alert("Por favor, digite o assunto da sua mensagem!");
                form.Assunto.setfocus;
                return false;

           }else if(form.Mensagem.value == "") {
                alert("Por favor, digite a sua mensagem!");
                form.Mensagem.setfocus;
                return false;
           } else{
                return true;
           }
     }
     
//-->
</script>

	</head>


    
	<form method="POST" action="enviafaleconosco.asp" onSubmit="return Validate(this);">

            
            <div id="content">
                
                <div id="content_institucional">
                    <h1 class="institucional_titulo">Entre em contato conosco</h1>
                </div>
                <div id="institucional_texto">
                    <div id="produto_mais_info">
                        <div id="mais_info_top"></div>
                        <div id="mais_info_content">
                            <div>
                                <div class="texto">
                                <font color="#808080">Para entrar em contato com 
								a nossa equipe, basta preencher o formulário 
								abaixo ou se preferir use um de nossos Canais 
								contidos na Lateral direita.<br>
								<br>
								Será um grande Prazer poder lhe atender, 
								esclarecer suas dúvidas ou receber suas 
								Sugestões.<br>
								</font> </div>
                             <fieldset>
                                <label style="width:370px"><strong>Nome:</strong><input class="text" type="text" name="Nome" /></label>
                                <label style="width:273px"><strong>Número do Pedido:</strong><input class="text"  type="text" name="Pedido" /></label>
                                <label style="width:420px"><strong>Cidade:</strong><input type="text" class="text"   name="Cidade" /></label>
                                <label style="width:228px"><strong>Estado</strong><br><select id="Estado" name="Estado"  class="styled">
            <option value=""> </option>
            <option value="AC">Acre</option>
            <option value="AL">Alagoas</option>
            <option value="AP">Amapá</option>
            <option value="AM">Amazonas</option>
            <option value="BA">Bahia</option>
            <option value="CE">Ceará</option>
            <option value="DF">Distrito Federal</option>
            <option value="ES">Espírito Santo</option>
            <option value="GO">Goias</option>
            <option value="MA">Maranhão</option>
            <option value="MT">Mato Grosso</option>
            <option value="MS">Mato Grosso do Sul</option>
            <option value="MG">Minas Gerais</option>
            <option value="PA">Pará</option>
            <option value="PB">Paraíba</option>
            <option value="PR">Paraná</option>
            <option value="PE">Pernambuco</option>
            <option value="PI">Piauí</option>
            <option value="RJ">Rio de Janeiro</option>
            <option value="RN">Rio Grande do Norte</option>
            <option value="RS">Rio Grande do Sul</option>
            <option value="RO">Rondônia</option>
            <option value="RR">Roraima</option>
            <option value="SC">Santa Catarina</option>
            <option value="SP">São Paulo</option>
            <option value="SE">Sergipe</option>
            <option value="TO">Tocantins</option>                                </select></label>
                                <label style="width:290px"><strong>E-mail:</strong><input type="text" class="text"  name="Email"/></label>
                                <label style="width:95px"><strong>DDD:</strong><input type="text" class="text"  name="DDD"/></label>
                                <label style="width:233px"><strong>Telefone:</strong><input  name="Telefone" class="text"  type="text" /></label>
                                <label style="width:420px"><strong>Assunto:</strong><input type="text" class="text"  name="Assunto" /></label>
                                <label style="width:228px"><strong>Departamento:</strong><select id="Departamento" name="Departamento" class="styled">
                                    <option>Comercial</option>
                                    <option>RH</option>
                                    <option>Tecnologia</option>
                                </select></label>
                                <label style="width:700px"><strong>Mensagem:</strong><textarea id="message" class="text"  name="Mensagem" ></textarea></label>
                                <label style="width:670px"><input type="submit"  class="submit" value="enviar" /></label>
                            </fieldset>
                            </div>
                        </div>
                        <div id="mais_info_base"></div>
                    </div>
                    <div style="float:left;width:220px;">
<div style="padding-bottom:6px;padding-left:6px;"><script language="JavaScript"> var code = '';
var now = new Date();
var nIndex = now.getTime();
document.write('<s' + 'cript src="banners/injeta.asp?F=0&Z=31&N=1&nocache=' + nIndex + '">');
document.write('</' + 's' + 'cript>');
</script>
<script language="JavaScript">document.write(code);</script>
<noscript><a href="banners/click.asp?F=0&Z=31&N=1">
<img border="0" src="banners/serve.asp?F=0&Z=31&N=1"></a></noscript></div>

                        <div class="box_lateral">
                            <h5 class="titulo_box_lateral">TELEVENDAS</h5>
                            <span>
                                (00) 0000-0000<br />
                                (00) 0000-0000<br />
                                (00) 0000-0000<br />
                            </span>
                        </div>
                        <div class="box_lateral">
                            <h5 class="titulo_box_lateral">TELEATENDIMENTO</h5>
                            <span>
                                (00) 0000-0000<br />
                            </span>
                        </div>
                        <div class="box_lateral">
                            <h5 class="titulo_box_lateral">COMPRE PELO MSN</h5>
                            <span>
                                MSN:<br />
                                teste@teste.com.br
                            </span>
                        </div>
                        <div class="box_lateral">
                            <h5 class="titulo_box_lateral">SEJA UM REVENDEDOR</h5>
                            <span>
                                MSN:<br />
                                teste@teste.com.br
                            </span>
                        </div>
                        <a href="http://twitter.com" target="_blank">
                            <img alt="siga-me" style="padding-left:5px;" src="imagem/bannerTwitter.jpg" /></a>
                    </div>
                    <br />
                    <a id="atendimento" href="javascript:void(0);"><img alt="FALE JÁ CONOSCO PELO TELE ATENDIMENTO:" src="/imagem/atendimento.png" /></a>
                </div>
            </div>
        </div>
</form>        
<!--#include file="rodape.asp"-->

e éssa é a função enviafaleconosco.aps

 

<!--#include file="topo.asp"-->

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set t = fso.OpenTextFile(server.mappath("faleconosco.asp"), 1, False)
corpo = t.readALL
t.close

for each qryItem in Request.Form
   corpo = replace(corpo,"[" & qryItem & "]", replace(request.Form(qryItem),vbcrlf,"<br>"))
next

corpo=replace(corpo,"[data]", now)

EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,request("Email"),request("Nome"),"teste@teste.com.br","# Fale Conosco #",corpo1

Set t = fso.OpenTextFile(server.mappath("faleconosco.asp"), 1, False)
corpo1 = t.readALL
t.close

for each qryItem in Request.Form
   corpo1 = replace(corpo1,"[" & qryItem & "]", replace(request.Form(qryItem),vbcrlf,"<br>"))
next

corpo1=replace(corpo1,"[data]", now)


EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,"teste@teste.com.br","Site:: Atendimento",email,"# Fale Conosco #",corpo1


%>
           
            <div id="content">
                
                <div id="content_institucional">
                    <h1 class="institucional_titulo">Entre em contato conosco</h1>
                </div>
                <div id="institucional_texto">
<br /><br /><br /><br />
Seus dados foram enviados com sucesso!
<br /><br /><br /><br />
            </div>
        </div>

<!--#include file="rodape.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Hummmm

Esse código do enviar está muiiito esquisito.

Tipo usa fso que é para manipulação de arquivos e não para envio de e-mail.

 

Você precisa recuperar os valores do formulario, formata-lo e enviar para o seu e-mail. Geralmente isso é feito usando CDONTS ou ASPMAIL, dá uma verificada com o serviço de hospedagem para ver qual eles suportam e se tem algum exemplo para você ver como funciona.

 

Abaixo segue um exemplo de como isso funciona usando CDONTS:

 

<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")

'Variaveis

Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "seu.servidor.de.smtp" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "seu.email.para.envio" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "sua.senha.de.email" ' senha da conta de e-mail
emailorigem = "email.de.origem" ' e-mail que indica de onde partiu a mensagem
emaildestino = "email.destino" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 25
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Formulario de Contato"
cdoMessage.ReplyTo = Request("email")

strBody = "Dados <br> <br>" & _
"Nome:"& Request.form("nome")& "<br>" & _
"Endereço:"& Request.form("endereco")& "<br>" & _
"Bairro:"& Request.form("bairro")& "<br>" & _
"Cidade:"& Request.form("cidade")& "<br>" & _
"CEP:"& Request.form("cep")& "<br>" & _
"Telefone:"& Request.form("tel")& "<br>" & _
"Celular:"& Request.form("cel")& "<br>" & _
"Fax:"& Request.form("fax")& "<br>" & _
"E-mail:"& Request.form("email")& "<br>" & _

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.write "O e-mail foi processado e enviado com sucesso"
%>

Uso esse script em alguns sites que administro no uolhost e funciona perfeitamente

No laboratorio de scripts tem alguns exemplos com o uso de CDONTS ou ASPMAIL.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

certifique-se de estar recuperando os dados corretamente e fazendo as concatenções exatas, existem outros exemplum, pode te ajudaros no fór

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Há realmente uma série de maneiras de configurar e usar CDOSYS.

 

Método 1 envolve o envio de e-mail usando um diretório de recebimento local. Ou seja, você tem o IIS SMTP Virtual Server Running. Se você estiver em uma máquina de desenvolvimento local, isto é provavelmente para você, outro Método envolve o encaminhamento de porta e tambem o envio de e-mail usando um servidor de correio remoto. Isto suporta autenticação de saída SMTP.

 

Método 1 (diretório de recebimento local onde o servidor está executando o SMTP Virtual Server)

 

<%
Dim ObjSendMail
Dim iConf
Dim Flds
	
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
	
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
	

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory"'>http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
	
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "alguém@alguém.net"
ObjSendMail.Subject = "tseu  asssunto"
ObjSendMail.From = "teste@teste.net"
	

'ObjSendMail.HTMLBody = "Este é o corpo"
ObjSendMail.TextBody = "Este é o corpo"
	
ObjSendMail.Send
	
Set ObjSendMail = Nothing
%>

 

Método 2 (Usando o reencaminhamento na porta 25)

Incluir este código da biblioteca metatype na página que você use este e-mail com o código, porque há algumas coisas em que este método necessita. Você provavelmente pode livrar-se dessas duas linhas se você descobrir o que ele faz referência, mas eu não ter tempo para olhar.

 

<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->

<%
Dim ObjSendMail
Dim iConf
Dim Flds
	
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
	
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
	
Set ObjSendMail.Configuration = iConf
	
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = "alguém@alguém.net"
ObjSendMail.Subject = "tseu  asssunto"
ObjSendMail.From = "teste@teste.net"
	

'ObjSendMail.HTMLBody = "corpo do email"
ObjSendMail.TextBody = "corpo do email"
	
ObjSendMail.Send
	
Set ObjSendMail = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>

Método 3 (Usar servidor de correio remoto)

 

<%
Dim objSendMail
Set objSendMail = CreateObject ( "CDO.Message")
	
'Esta seção fornece as informações de configuração para o servidor SMTP remoto.
	
ObjSendMail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Enviar a mensagem utilizando a rede (SMTP através da rede).
ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/smtpserver ") = mail.dominio.com"
ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25
ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = False 'Use SSL para a conexão (Verdadeiro ou Falso)
ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout ") = 60
	
'Se o servidor requer autenticação uncomment saída do bleow linhas e usar um endereço de e-mail e senha válidos.
'ObjSendMail.Configuration.Fields.Item ( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1' basic (clear-text) autenticação
'ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/sendusername ") = algummail@seuserver.com"
'ObjSendMail.Configuration.Fields.Item (http://schemas.microsoft.com/cdo/configuration/sendpassword ") = yourpassword"
	
ObjSendMail.Configuration.Fields.Update
	

	
ObjSendMail.To alguém@alguém.net = ""
ObjSendMail.Subject = "Este é o assunto"
ObjSendMail.From alguém@alguém.net = ""
	
'Nós estamos enviando um e-mail de texto .. basta mudar os comentários em torno de enviar um e-mail HTML 
'ObjSendMail.HTMLBody = "Este é o corpo"
ObjSendMail.TextBody = "Este é o corpo"
	
ObjSendMail.Send
	
Set objSendMail = Nothing
%>

Carbon Copy

ObjSendMail.CC alguém@alguém.net = ""

 

Blind Carbon Copy

ObjSendMail.BCC alguém@alguém.net = ""

 

Enviar Attachment (você pode especificar o caminho do arquivo usando Server.Mappath também)

ObjSendMail.AddAttachment "c: \ teste\ arquivo.jpg"

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabricio2009    0

fabricio2009
Postado

esse é o código que faz a ação, com ele o e-mail chega, mais sem os dados que o cliente preencheu no site.

 

Os dados seriam:

 

nome

número do pedido

cidade

estado

e-mail

ddd

telefone

assunto

departamento

mensagem

 

está certo o meu código?

 

<!--#include file="topo.asp"-->

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set t = fso.OpenTextFile(server.mappath("admin_faleconosco.html"), 1, False)
corpo = t.readALL
t.close

for each qryItem in Request.Form
   corpo = replace(corpo,"[" & qryItem & "]", replace(request.Form(qryItem),vbcrlf,"<br>"))
next

corpo=replace(corpo,"[data]", now)

EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,request("Email"),request("Nome"),"meuemail@meudominio.com.br","# Fale Conosco #",corpo1

Set t = fso.OpenTextFile(server.mappath("template_faleconosco.html"), 1, False)
corpo1 = t.readALL
t.close

for each qryItem in Request.Form
   corpo1 = replace(corpo1,"[" & qryItem & "]", replace(request.Form(qryItem),vbcrlf,"<br>"))
next

corpo1=replace(corpo1,"[data]", now)


EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,"meuemail@meudominio.com.br","Nome :: Atendimento",email,"# Fale Conosco #",corpo1


%>
           
            <div id="content">
                
                <div id="content_institucional">
                    <h1 class="institucional_titulo">Entre em contato conosco</h1>
                </div>
                <div id="institucional_texto">
<br /><br /><br /><br />
Seus dados foram enviados com sucesso!
<br /><br /><br /><br />
            </div>
        </div>

<!--#include file="rodape.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

fabricio2009    0

fabricio2009
Postado

Não gera nenhum, eu recebo um e-mail só que sem nenhum dados, ou seja, ele vem em branco.

 

pessoal consegui fazer com que eu receba os dados do cliente, agora só precisava saber como eu faço para assim que o cliente enviar o e-mail ele receber um e-mail resposta com um template q eu tenho pronto aqui.

 

ficou assim o código:

 

<%
Dim carroba
for each qryItem in Request.form
if instr(Request.form(qryItem),"@")>0 then carroba=carroba+1
next
if carroba>3 then response.redirect("/index.asp")

Titulo="Teste:: Fale Conosco"%>

<!--#include file="topo.asp"-->


<%
if request("act")="envia" then
assunto			= Request("assunto")
nome			= Request("nome")
pedido			= Request("pedido")
cidade			= Request("cidade")
estado			= Request("estado")
telefone		= Request("telefone")
email			= Request("email")
ddd				= Request("ddd")
depto       	= Request("depto")
mensagem		= Replace(Request("mensagem"), vbCrLf, "<br>")


'Set objCon = Server.CreateObject("ADODB.Connection")
'objCon.Open Application("te_conexao")

'on error resume next

'if pedido="" then pedido=0

'objCon.Execute("INSERT INTO FaleConosco (Nome, Pedido, Cidade, Estado, Telefone, Email, Messenger, Departamento, Assunto, Mensagem, Status, Data) VALUES ('" & replace(nome,"'", "''") & "', " & pedido & ", '" & replace(cidade,"'", "''") & "', '" & replace(estado,"'", "''") & "', '" & replace(telefone,"'", "''") & "', '" & replace(email,"'", "''") & "', '" & replace(msn,"'", "''") & "', '" & replace(depto,"'", "''") & "', '" & replace(assunto,"'", "''") & "', '" & replace(mensagem,"'", "''") & "', 0, '" & now() & "') ")

'if err and msgerro="" then msgerro="<center><br><br><font color=red><b>Algum erro aconteceu ao garvar os dados no banco de dados!</b><br><br></center>"

'mensagem = mensagem & msgerro


Set fso = CreateObject("Scripting.FileSystemObject")
Set t = fso.OpenTextFile(server.mappath("contato_template.html"), 1, False)
corpo = t.readALL
t.close
Set t=nothing

corpo1 = replace(corpo,"//nome",nome)

if depto="Dúvida de Produtos" then
corpo1 = replace(corpo1,"#Tipo#","Produto")
else
corpo1 = replace(corpo1,"#Tipo#","Pedido")
end if

corpo1 = replace(corpo1,"//assunto",assunto)
corpo1 = replace(corpo1,"//pedido",pedido)
corpo1 = replace(corpo1,"//cidade",cidade)
corpo1 = replace(corpo1,"//estado",estado)
corpo1 = replace(corpo1,"//telefone",telefone)
corpo1 = replace(corpo1,"//ddd",ddd)
corpo1 = replace(corpo1,"//email",email)
corpo1 = replace(corpo1,"//depto",depto)
corpo1 = replace(corpo1,"//msg",mensagem)
corpo1 = replace(corpo1,"//data",date())
corpo1 = replace(corpo1,"//hora",time())

EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,email,nome,"teste@teste.com.br","# Fale Conosco #",corpo1

'Set fso = CreateObject("Scripting.FileSystemObject")
Set t = fso.OpenTextFile(server.mappath("templateMail/index.html"), 1, False)
corpo = t.readALL
t.close

corpo1 = replace(corpo,"//nome",nome)

if depto="Dúvida de Produtos" then
corpo1 = replace(corpo1,"#Tipo#","Produto")
else
corpo1 = replace(corpo1,"#Tipo#","Pedido")
end if

corpo1 = replace(corpo1,"//assunto",assunto)
corpo1 = replace(corpo1,"//pedido",pedido)
corpo1 = replace(corpo1,"//cidade",cidade)
corpo1 = replace(corpo1,"//estado",estado)
corpo1 = replace(corpo1,"//telefone",telefone)
corpo1 = replace(corpo1,"//ddd",ddd)
corpo1 = replace(corpo1,"//email",email)
corpo1 = replace(corpo1,"//msg",mensagem)
corpo1 = replace(corpo1,"//depto",depto)
corpo1 = replace(corpo1,"//data",date())
corpo1 = replace(corpo1,"//hora",time())

EnviaEmail Application("te_servidor_email"),Application("te_componente_email"),0,"teste@teste.com.br","Teste:: Atendimento",email,"# Fale Conosco #",corpo1

end if
%>
      <div id="content">
                
                <div id="content_institucional">
                    <h1 class="institucional_titulo">Entre em contato conosco</h1>
                </div>
                <div id="institucional_texto">
<br /><br />
Seus dados foram enviados com sucesso!
<br /><br /><br />
            </div>
        </div>

	<!--#include file="rodape.asp"-->

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