ASPMAIL
Sou novato em asp, fiz um código de envio de e-mail(fale conosco), só que dá a mensagem que foi enviado com sucesso mas o email não chega. Descobri que o problema está nessa linha - Mailer.FromAddress = request.form([Ô]email[Ô]), mas quando troco nessa mesma linha o request.form([Ô]email[Ô]) por um endereço de email qualquer(exemplo: Mailer.FromAddress = [Ô]email@abc.com.br[Ô]) o código funciona, ou seja o email chega. Vou postar o código do formulário html e do código asp:
[ô]formulário
<html>
<head>
<title>Laport Imóveis</title>
<head>
<body>
<form method=[Ô]POST[Ô] action=[Ô]aspmail.asp[Ô]>
<p>Contato</p>
<table border=[Ô]0[Ô] width=[Ô]100%[Ô]>
<tr>
<td width=[Ô]14%[Ô]>Nome :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]nome[Ô] size=[Ô]20[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Email :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]email[Ô] size=[Ô]40[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Assunto :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]assunto[Ô] size=[Ô]20[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Mensagem :</td>
<td width=[Ô]86%[Ô]><textarea rows=[Ô]2[Ô] name=[Ô]mensagem[Ô] cols=[Ô]20[Ô]></textarea></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]></td>
<td width=[Ô]86%[Ô]><input type=[Ô]submit[Ô] value=[Ô]enviar[Ô] name=[Ô]botao[Ô]></td>
</tr>
</table>
</form>
</body>
</html>
[ô]
[ô] código de envio aspmail.asp
<%
if request([Ô]botao[Ô]) = [Ô]enviar[Ô] Then
Set Mailer = Server.CreateObject([Ô]SMTPsvg.Mailer[Ô])
Mailer.RemoteHost = [Ô]smtp-web.kinghost.net[Ô]
Mailer.FromName = request.form([Ô]nome[Ô])
Mailer.FromAddress = request.form([Ô]email[Ô]) [ô] «« O ERRO PARECE ESTà AQUI
Mailer.AddRecipient [Ô]teste[Ô], [Ô]la@laport.com.br[Ô]
Mailer.Subject = request.form([Ô]assunto[Ô])
Mailer.BodyText = request.form([Ô]mensagem[Ô])
if Mailer.SendMail then
Response.Write [Ô]E-MAIL ENVIADO COM SUCESSO![Ô]
else
Response.Write mailer.response
end if
response.end
end if
%>
[ô]formulário
<html>
<head>
<title>Laport Imóveis</title>
<head>
<body>
<form method=[Ô]POST[Ô] action=[Ô]aspmail.asp[Ô]>
<p>Contato</p>
<table border=[Ô]0[Ô] width=[Ô]100%[Ô]>
<tr>
<td width=[Ô]14%[Ô]>Nome :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]nome[Ô] size=[Ô]20[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Email :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]email[Ô] size=[Ô]40[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Assunto :</td>
<td width=[Ô]86%[Ô]><input type=[Ô]text[Ô] name=[Ô]assunto[Ô] size=[Ô]20[Ô]></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]>Mensagem :</td>
<td width=[Ô]86%[Ô]><textarea rows=[Ô]2[Ô] name=[Ô]mensagem[Ô] cols=[Ô]20[Ô]></textarea></td>
</tr>
<tr>
<td width=[Ô]14%[Ô]></td>
<td width=[Ô]86%[Ô]><input type=[Ô]submit[Ô] value=[Ô]enviar[Ô] name=[Ô]botao[Ô]></td>
</tr>
</table>
</form>
</body>
</html>
[ô]
[ô] código de envio aspmail.asp
<%
if request([Ô]botao[Ô]) = [Ô]enviar[Ô] Then
Set Mailer = Server.CreateObject([Ô]SMTPsvg.Mailer[Ô])
Mailer.RemoteHost = [Ô]smtp-web.kinghost.net[Ô]
Mailer.FromName = request.form([Ô]nome[Ô])
Mailer.FromAddress = request.form([Ô]email[Ô]) [ô] «« O ERRO PARECE ESTà AQUI
Mailer.AddRecipient [Ô]teste[Ô], [Ô]la@laport.com.br[Ô]
Mailer.Subject = request.form([Ô]assunto[Ô])
Mailer.BodyText = request.form([Ô]mensagem[Ô])
if Mailer.SendMail then
Response.Write [Ô]E-MAIL ENVIADO COM SUCESSO![Ô]
else
Response.Write mailer.response
end if
response.end
end if
%>
Cara, você já printou o retorno request.form([Ô]email[Ô]) pra ver se ele não está vindo vazio?
é meio lógico, já que se colocando o valor fixo funciona.
é meio lógico, já que se colocando o valor fixo funciona.
JoaoNeto, o código não dá erro nenhum, após o envio vem a mensagem [Ô]E-MAIL ENVIADO COM SUCESSO![Ô][Ô], mas só que o email não chega. Se eu trocar o Mailer.FromAddress = request.form([Ô]email[Ô]) por Mailer.FromAddress = [Ô]laport@ig.com.br[Ô] por exemplo o email chega em minha caixa de mensagem. Já pesquisei aà na internet, vários usuário já tiveram problema com esse servidor que hospedei o site [Ô]Kinghost[Ô]. Eles não dão suporte de linguagem. Dê uma olhada no formulário html veja se há algo errado tbm. Como disse acima estou começando em asp agora, com faço para printar o request.form([Ô]email[Ô]) para ver se ele está vazio. Obrigado pela força....
<%
if request([Ô]botao[Ô]) = [Ô]enviar[Ô] Then
Set Mailer = Server.CreateObject([Ô]SMTPsvg.Mailer[Ô])
Mailer.RemoteHost = [Ô]smtp-web.kinghost.net[Ô]
Mailer.FromName = request.form([Ô]nome[Ô])
[txt-color=#0B6138][ô]Adicione as duas linhas abaixo para testar
[ô]Verifica se irá aparecer algum e-mail, remova as linhas e teste novamente[/txt-color]
response.write([Ô]e-mail: [Ô] & request.form([Ô]email[Ô]))
response.end()
Mailer.FromAddress = request.form([Ô]email[Ô])
Mailer.AddRecipient [Ô]teste[Ô], [Ô]la@laport.com.br[Ô]
Mailer.Subject = request.form([Ô]assunto[Ô])
Mailer.BodyText = request.form([Ô]mensagem[Ô])
if Mailer.SendMail then
Response.Write [Ô]E-MAIL ENVIADO COM SUCESSO![Ô]
else
Response.Write mailer.response
end if
response.end
end if
%>
Tecla não printou o email na tela...
Tópico encerrado , respostas não são mais permitidas