Ir para conteúdo

POWERED BY:

Arquivado

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

lucasapoll

[Resolvido] Formulário asp

Por , em ASP Clássico

Recommended Posts

lucasapoll    0

lucasapoll
Postado

Fala galera, beleza?

 

Sou designer gráfico, não web designer e aqui no escritório fizemos uma landing page (www.rhadarlog.com.br) que é necessário ter formulário.

 

Esta hospedado no servidor www.netpoint.com.br e eles tem esse link http://www.netpoint.com.br/ajuda/ind...%A9s_de_e-mail.

 

Só que durante o código ele vai pedindo modificações que eu não entendo.

 

Teria como alguem me ajuda nesse código ou me fornecendo um mais simples?

 

Muito obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasapoll    0

lucasapoll
Postado

Preciso de um formulário que a pessoa preencha e envie sua dúvida ou mensagem e eu receba na minha caixa de email, eu faço isso normalmente na locaweb, pois ja tenho uns códigos prontos, agora na netpoint o código é mais complexo.

 

http://www.netpoint.com.br/ajuda/index.php?title=Como_enviar_um_formul%C3%A1rio_em_HTML_atrav%C3%A9s_de_e-mail

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Usa o CDOSYS para o envio de email ou também pode ser outro componente caso o server disponibilize, faça uma busca no fórum, coloquei vários post sobre o assunto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasapoll    0

lucasapoll
Postado

Consegui!

 

Usei esse da locaweb http://wiki.locaweb.com.br/pt-br/Cdosys

 

Segue abaixo o que eu usei:

 

<%

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 

objCDOSYSCon.Fields.update

 

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "Remetente@dominio.com"

objCDOSYSMail.To = "Destinatário@domínio.com"

objCDOSYSMail.Subject = "Assunto do e-mail"

objCDOSYSMail.TextBody = "Corpo da mensagem"

objCDOSYSMail.Send

 

set objCDOSYSMail = nothing

set objCDOSYSCon = nothing

response.write "<h1>Mensagem enviada com sucesso!!</h1>"

%>

]

 

 

O formulário na minha página está assim:

<html>

<head>

<title>Formulário de Contato</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000">

<div align="center">

<p><img src="images/index_03.gif" width="319" height="104" border="0"></p>

<form method="post" enctype="multpart/formdata" name="form1" action="enviar.asp">

<table width="47%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td width="33%"><font face="Times New Roman, Times, serif" size="3">Seu nome: </font></td>

<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">

<input type="text" name="nomerem" size="55">

</font></td>

</tr>

<tr>

<td width="33%"><font face="Times New Roman, Times, serif" size="3">Seu email: </font></td>

<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">

<input type="text" name="emailrem" size="55">

</font></td>

</tr>

<tr>

<td width="33%"><font face="Times New Roman, Times, serif" size="3">Assunto: </font></td>

<td width="67%"><font face="Arial, Helvetica, sans-serif" size="2">

<input type="text" name="assunto" size="55">

</font></td>

</tr>

<tr>

<td width="33%"><font face="Times New Roman, Times, serif" size="3">Mensagem:</font></td>

<td width="67%">

<textarea name="recado" rows="7" cols="52"></textarea>

</td>

</tr>

<tr>

<td colspan="2">

<div align="center">

<input type="submit" name="Submit" value="Enviar">

<input type="reset" name="reset" value="Limpar">

</div>

</td>

</tr>

</table>

</form>

<p><img src="images/index_31.gif" alt="telefone" width="248" height="69" border="0"></p>

</div>

</body>

</html>

 

 

E o enviar.asp, está assim:

<%

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

 

objCDOSYSCon.Fields.update

 

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "teste@rhadarlog.com.br"

objCDOSYSMail.To = "teste@rhadarlog.com.br"

objCDOSYSMail.Subject = "Assunto do e-mail"

objCDOSYSMail.TextBody = "Corpo da mensagem"

objCDOSYSMail.Send

 

set objCDOSYSMail = nothing

set objCDOSYSCon = nothing

response.write "<h1>Mensagem enviada com sucesso!!</h1>"

%>

 

 

E agora ao receber o email eu não recebo a a mensagem que o cliente entrou em contato, eu recebo "corpo da mensagem" que está no código e aparece que fui eu que enviei eetc...

 

Como arrumo?

 

ABS

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