Tenho instalado um newsletter instalado em meu site, so que é quando para o envio do e-mail, o mesmo é enviado mas nao chega a caixa de destino
qual a maneira correta de enviar e-mail usando esse codigo, ou seja, o codigo pegar todos os e-mail cadastrados.
Veja o codigo abaixo:
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From = email
' mail.Host = mail
mail.To = rs("email")
mail.Subject = assunto
mail.BodyFormat = 0
mail.Body = mensagem
'mail.Send
Set mail = Nothing
Response.Write "Email enviado para : " & rs("email") & "<br>"
user = user + 1
rs.MoveNext
Wend
Response.Write "No total foram enviados " & user & " emails."
rs.Close
Set rs = Nothing
Sql = "INSERT INTO enviados (assunto,mensagem,data) "
Sql = Sql & "VALUES('" & Request.Form("assunto") & "','" & mensagem & "','" & Request.Form("data") & "')"
Conexao.Execute(Sql)
Else
Response.Redirect "admin.asp?acao=erro"
End If
FechaConexao %>
<% case "modificar" %>
<% AbreConexao
Sql = "SELECT * From dados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF%>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><input type="text" value="<%=rs("email")%>" name="email" size="30"></td>
<td><form method="POST" action="admin.asp?acao=alterar&id=<%=rs("id")%>">
<input type="submit" value="Alterar"></form></td>
<td><form method="POST" action="admin.asp?acao=deletar&id=<%=rs("id")%>">
<input type="submit" value="Apagar"></form></td>
</tr>
</table>
<hr size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "deletar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "DELETE id,email FROM dados WHERE id = " & id &""
Conexao.Execute(Sql)
FechaConexao %>
E-Mail deletado com sucesso!<BR>
<hr size="1">
<% case "alterar" %>
<% id = request.querystring("id")
AbreConexao
Sql = "UPDATE dados SET email = '" & Request.Form("email") & "' WHERE id = " & id & " "
Conexao.Execute(Sql)
FechaConexao %>
E-Mail alterado com sucesso!<BR>
<hr size="1">
<% case "todas" %>
<% AbreConexao
Sql = "SELECT * From enviados"
Set rs = Conexao.Execute(Sql)
while not rs.EOF %>
Assunto: <font color="red"><%=rs("assunto")%></font><BR>
Enviada em: <font color="red"><%=rs("data")%></font><BR>
Mensagem:<BR>
<%=rs("mensagem")%><BR><BR><BR>
<HR size="1">
<% rs.MoveNext
wend
FechaConexao %>
<% case "erro" %>
Ocorreu um erro ao tentar efetuar a operação. Tente novamente.<BR>
<hr size="1">
<% case else %>
<% AbreConexao
Sql = "SELECT * FROM dados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, ConStr, 3, 3 %>
No total <%=rs.recordcount%> pessoas estão cadastradas no seu newsletter<BR>
<a href="admin.asp?acao=modificar">Modificar/Alterar os dados dos cadastrados</a><BR>
<a href="admin.asp?acao=enviar">Enviar E-Mail</a><BR>
<a href="admin.asp?acao=todas">Todos os e-mails já enviados</a>
<HR size="1">
<% FechaConexao
end select %>
</font>
</body>
</html>
