Ver Mensaje Individual
  #1 (permalink)  
Antiguo 07/01/2011, 20:54
Joseph
 
Fecha de Ingreso: febrero-2003
Mensajes: 233
Antigüedad: 22 años, 1 mes
Puntos: 4
En dónde puede estar el error?

Buenas que tal? estoy haciendo un envío de email a los usuarios de una Web, el problema esta en que cuando hago el envío con el siguiente código no realiza el envío, pero si cambio la variable "usuario" en oMail.To y pongo un email entre comilas dobles, me envía el email la cantidad de personas que tengo en la BD, osea si hace el recordset...

<%
Dim usuario, oMail, strHTML

strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "línea 1.<br /><br />"
strHTML = strHTML & "línea 2<br /><br />"
strHTML = strHTML & "línea 32<br /><br />"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"


Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos.mdb")&";"
sql = "select * from emails"

rs.open sql, oConn, 3,1

Do While Not rs.EOF
usuario = rs("email")

Set oMail = Server.CreateObject("CDONTS.NewMail")

oMail.From = "[email protected]"
oMail.To = usuario
oMail.Subject = "Hola"
oMail.Body = strHTML
oMail.Send

Set oMail = Nothing

rs.MoveNext
Loop

Response.Redirect "fin.asp"
%>

lo que deseo es que se envíe a cada uno de los usuarios que estan en la BD, y yo guardo el email en la variable usuario.

Gracias de antemano