error en lista correo jmail

[CHuLoSoY]

Estoy intentando hacer una lista de correo que envíe un email a cada uno de los registros de una base de datos, utilizo un bucle while y no da error, pero el email nunca llega, pero el servicio de jmail sí funciona por que lo he probado con otros sistemas. ¿qué está mal?

<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db.mdb")&";"

'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM emails"
Set result = con.Execute(sql)

Do While Not result.EOF

smtpServer = "confidencial"
smtpPort = 25
dim sender, subject, body, smtpServer, smtpPort
subject = "Lista de correo Ommadawn"
mensaje = request.form("mensaje")
body = mensaje

Set mail = CreateObject ("JMail.SMTPMail")
mail.ServerAddress = smtpServer & ":" & smtpPort
mail.Sender = "confidencial"
mail.SenderName = "Ommadawn.es.vg"
mail.Subject = subject
mail.AddRecipient result.Fields("email")
mail.ContentType = "text/html"
mail.Body = body
mail.Execute
set mail = nothing

result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>

[bakanzipp]

te fijaste si estan saliendo los correos desde tu servidor de correos o se quedan encolandos ?

[CHuLoSoY]

no sé como mirar eso, pero la duda es que en otros servicios funciona bien (postales, compra venta, etc...) y en este especialmente no.. será por el bucle que está mal hecho?

[bakanzipp]

el bucle lo veo bien...

a lo mas sacaria el createobject en el loop para no estar creandolo y liberandolo por cada pasada.

probaste enviando un solo email?...
si te funciona la pagina enviando un solo email...hay algo raro en el bucle...

haz eso primero...

[DeLaVega]

Yo hago similar, creo el objeto en el bucle por cada pasada y lo destruyo y me funciona ok (con cdonts).
saludos

[CHuLoSoY]

umm... sospecho de la base de datos, acabo de quitarle el bucle y tampoco me llega el email.... ¿Qué puede pasar?

[bakanzipp]

entonces anda imprimiendo todos lo que encuentres raro...

partiendo por lo que te retorna el sql

response.write result.Fields("email")


delavega...no estoy diciendo que no funcione creando el objeto cada vez que pasa por el bucle...

pero si de eficiencia se trata...es una perdida de recursos estar llenando y liberando de memoria un mismo objeto por cada pasada.

[CHuLoSoY]

ups, si que era de la bd:

Object required: 'result'

/listacorreo/enviar.asp, line 39

pero el mismo código utilizo para compra venta (el bucle y la conexión bd) y no me da error! qué pasa?

[CHuLoSoY]

ya está arreglado, gracias por sus indicaciones

[DeLaVega]

Si, coincido con lo de la pérdida de memoria... te había entendido mal... perdón...
Pero como se puede hacer para que le llegue a cada uno un mail de otra manera? Yo antes lo hacía con bbc pero no llega el mail de destino (me refiero, en el campo "to" cuando recibe el email no aparece el email del destinatario).
saludos