1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Cdosys > Email vai para pasta QUEUE ou BADMAIL

Discussão em 'Web Development' iniciada por Miguel86, 20 de Março de 2007. (Respostas: 0; Visualizações: 957)

  1. Miguel86

    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

    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 :)
     

Partilhar esta Página