ju_rezende Postado Abril 17, 2007 Denunciar Share Postado Abril 17, 2007 Olá pessoal estou com um problema no aspemail.em alguns emails não chega o email.No ig, por exemplo o email não chega, no hotmail e ig, ele ficam na caixa em massa,Não sei mais como solucionar este problema se alguém souber alguma forma de solucionar por gentileza me ajudem.Meu códCall AbreConexao()strHost = "mail.cowhorse.com.br"corpo = "<html><head><meta http-equiv=" & chr(34) & "Content-Type" & chr(34) & " content=" & chr(34) & "text/html; charset=iso-8859-1" & chr(34) & "></head>"corpo = corpo+ "<body>"corpo= corpo + "<table >"sql="select * from promocao"set rs= server.CreateObject("ADODB.Recordset")'response.write sql'response.endrs.open sql,conn,3,3corpo= corpo + "<tr><th bgcolor="& "#666666" &"><font="& "arial" & "><font color="& "#ffffff" &">Produto</th></font><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Categoria</th><thbgcolor="& "#666666" &"><font color="& "#ffffff" &"> Tipo</th bgcolor="& "#666666" &"><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Valor</th><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Referência</th><th bgcolor="& "#666666" &"><font color="& "#ffffff" &">Novo valor</th></tr>"do while rs.eof=false sql2="select * from categoria where codigo=" & rs("categoria") sql3="select * from tipo where codigo=" & rs("tipo") set rs2= server.CreateObject("ADODB.Recordset") set rs3= server.CreateObject("ADODB.Recordset") 'response.write sql2 rs2.open sql2,conn,3,3 rs3.open sql3,conn,3,3 corpo=corpo+ "<tr><td>"& rs("produto")&"</tr><td>"& rs2("categoria") &"</td><td>"& rs3("tipo") &"</td><td>"& rs("valor") & "</td><td>" & rs("referencia") & "</td><td>R$"& rs("novo_valor") & "</td><td><img src=""http://www.cowhorse.com.br" & rs("foto")& """width=60""/></td></tr>" rs.movenextloop corpo=corpo+"</table>"corpo=corpo+ "</body>"corpo=corpo+ "</html>"mensagem = corpo'response.write mensagem'enviandosql4= "select * from assossiado" set rs4= server.CreateObject("ADODB.Recordset")rs4.open sql4,conn,3,3 total=1response.write sql4response.write total'do while rs4.eof=false 'response.write rs4("email")'loop'response.endDo while rs4.eof=false and total<=rs4.recordcountSet objmail = Server.CreateObject("Persits.MailSender")objmail.Host = "smtp.cowhorse.com.br"objmail.From = "cowhorse@cowhorse.com.br"objmail.FromName = "CowHorse"objmail.AddAddress rs4("email") , rs4("nome")'objmail.AddAddress "destino2@dominio.com.br" objmail.Subject = "Promoções da Semana" 'objmail.IsHTML = Trueobjmail.Body = corpoobjmail.Send rs4.movenexttotal=total+1response.write sql4loop Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 JCMPJ Postado Abril 18, 2007 Denunciar Share Postado Abril 18, 2007 no hotmail e ig, ele ficam na caixa em massaMas o que você está enviando não é um spam?Tente mudar o assunto da mensagem, pode ser que passe pelo filtro. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Renato Penna Postado Abril 18, 2007 Denunciar Share Postado Abril 18, 2007 Envie um de cada vez, porque se você enviar todos de uma vez só será tratado como SPAM. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
ju_rezende
Olá pessoal estou com um problema no aspemail.
em alguns emails não chega o email.
No ig, por exemplo o email não chega, no hotmail e ig, ele ficam na caixa em massa,
Não sei mais como solucionar este problema se alguém souber alguma forma de solucionar por gentileza me ajudem.
Meu cód
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.