Miguel86
Power Member
Como o nome do topico diz, sempre que tento enviar um email ele vai para o badmail ou para o Queue
Cá vai o codigo
Segundo o que li, devia dar tendo o
set myMail=nothing
Mas apesar de o ter tido sempre, continua a não mandar os emails..
Alguem faz ideia do que poderá ser?
Cumps
Cá vai o codigo
Código:
<%
subject = Request.Form("subject")
message = Request.Form("message")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd/mail.mdb"))
set rs=createobject("ADODB.Recordset")
rs.open "select * from users",Conn
while not rs.eof
Set myMail=CreateObject("CDO.Message")
myMail.Subject= subject
myMail.From="[email protected]"
myMail.To= rs("email")
myMail.TextBody= message
myMail.Send
set myMail=nothing
Response.Write "Email enviado para: " & rs("email") & "<br>"
rs.movenext
wend
%>
Segundo o que li, devia dar tendo o
set myMail=nothing
Mas apesar de o ter tido sempre, continua a não mandar os emails..
Alguem faz ideia do que poderá ser?
Cumps