Marcos Adilson Postado Abril 12, 2010 Denunciar Share Postado Abril 12, 2010 Bom DiaPreciso mandar emails em um formulario em asp, mas, não encontro o erro.segue abaixo o scritp.Desde já agradecoconrs.open "SELECT Revendas.revenda, Revendas.email, Marcas.marca, Autos.modelo, Autos.ano, Autos.ano_modelo, Autos.cor, Autos.cidade FROM Revendas, Marcas, Autos WHERE Autos.marca = Marcas.marca_id AND Autos.revenda = Revendas.login AND Autos.auto_id = " & request.form("auto"),conexao,1,3 Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp2.locaweb.com.br" Mail.From = "contato@procurandomeucarro.com.br" Mail.FromName = tiraAspas(request.form("nome")) select case conrs("cidade") case 1 Mail.AddAddress "manaus@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br" case 8 Mail.AddAddress "belem@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br" case 12 Mail.AddAddress "boavista@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br" end select if (conrs("email") <> "") then Mail.AddCC conrs("email"), conrs("revenda") end if Mail.AddReplyTo tiraAspas(request.form("email")), tiraAspas(request.form("nome")) Mail.Subject = "ProcurandoMeuCarro.com.br: PROPOSTA" Mail.Body = "<img src=http://www.procurandomeucarro.com.br/images/logo.gif><br><br><font face=Arial><b><u>PROPOSTA POR VEÍCULO</u></b><br><br><b>NOME:</b> " & tiraAspas(request.form("nome")) & "<br><b>E-MAIL:</b> " & tiraAspas(request.form("email")) & "<br><b>TELEFONE:</b> " & request.form("telefone") & "<br><b>PROPOSTA POR:</b> " & conrs("marca") & " " & conrs("modelo") & " " & conrs("ano") & "/" & conrs("ano_modelo") & " " & conrs("cor") & "<br><b>MENSAGEM</b>: " & insereQuebras(tiraAspas(request.form("mensagem"))) & "</font>" Mail.IsHTML = True Mail.Send Set Mail = Nothing conrs.close %>Sua proposta foi enviada com sucesso!</TD> </TR> </TABLE></td></tr></table></body><%Set conrs = nothingconexao.closeSet conexao = nothing%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 bareta Postado Abril 12, 2010 Denunciar Share Postado Abril 12, 2010 o que acontece??? não manda o e-mail ou da erro? que erro q aparece? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcos Adilson Postado Abril 12, 2010 Autor Denunciar Share Postado Abril 12, 2010 ele da a mensagem "Enviado!" mas não chega Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Marcos Adilson
Bom Dia
Preciso mandar emails em um formulario em asp, mas, não encontro o erro.
segue abaixo o scritp.
Desde já agradeco
conrs.open "SELECT Revendas.revenda, Revendas.email, Marcas.marca, Autos.modelo, Autos.ano, Autos.ano_modelo, Autos.cor, Autos.cidade FROM Revendas, Marcas, Autos WHERE Autos.marca = Marcas.marca_id AND Autos.revenda = Revendas.login AND Autos.auto_id = " & request.form("auto"),conexao,1,3
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp2.locaweb.com.br"
Mail.From = "contato@procurandomeucarro.com.br"
Mail.FromName = tiraAspas(request.form("nome"))
select case conrs("cidade")
case 1
Mail.AddAddress "manaus@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br"
case 8
Mail.AddAddress "belem@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br"
case 12
Mail.AddAddress "boavista@procurandomeucarro.com.br", "ProcurandoMeuCarro.com.br"
end select
if (conrs("email") <> "") then
Mail.AddCC conrs("email"), conrs("revenda")
end if
Mail.AddReplyTo tiraAspas(request.form("email")), tiraAspas(request.form("nome"))
Mail.Subject = "ProcurandoMeuCarro.com.br: PROPOSTA"
Mail.Body = "<img src=http://www.procurandomeucarro.com.br/images/logo.gif><br><br><font face=Arial><b><u>PROPOSTA POR VEÍCULO</u></b><br><br><b>NOME:</b> " & tiraAspas(request.form("nome")) & "<br><b>E-MAIL:</b> " & tiraAspas(request.form("email")) & "<br><b>TELEFONE:</b> " & request.form("telefone") & "<br><b>PROPOSTA POR:</b> " & conrs("marca") & " " & conrs("modelo") & " " & conrs("ano") & "/" & conrs("ano_modelo") & " " & conrs("cor") & "<br><b>MENSAGEM</b>: " & insereQuebras(tiraAspas(request.form("mensagem"))) & "</font>"
Mail.IsHTML = True
Mail.Send
Set Mail = Nothing
conrs.close
%>Sua proposta foi enviada com sucesso!</TD>
</TR>
</TABLE></td>
</tr>
</table>
</body>
<%
Set conrs = nothing
conexao.close
Set conexao = nothing
%>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.