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
%>