Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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!
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.
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.
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
Consegui! Muito obrigado!
O link não funciona, você precisa explicar melhor do que precisa!