Foros del Web » Programando para Internet » ASP Clásico »

Lista de correos con CDONTS

Estas en el tema de Lista de correos con CDONTS en el foro de ASP Clásico en Foros del Web. Buenas, que tal? estoy tratando de adpatar un codigo que ví en este foro de envío de emails a una lista de correos que tengo ...
  #1 (permalink)  
Antiguo 27/07/2008, 15:23
 
Fecha de Ingreso: febrero-2003
Mensajes: 233
Antigüedad: 21 años, 3 meses
Puntos: 4
Lista de correos con CDONTS

Buenas, que tal? estoy tratando de adpatar un codigo que ví en este foro de envío de emails a una lista de correos que tengo en una base de datos, el script original esta en Aspmail y yo uso CDONTS. Me quedo así pero me da error

<%
Set oConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("../midata/lista.mdb")&";"


sql = "select * from Suscriptores"
rs.open sql, oConn, 1, 2

Dim Email, OBJ_EMAIL

Email = rs("Email")
If Not rs.EOF Then
Do While Not rs.EOF
rs.MoveNext
Loop
End If
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = Email
OBJ_EMAIL.Subject = "Lista de correo"
OBJ_EMAIL.Body = "Mensaje" & vbcrlf&_
OBJ_EMAIL.Send

Set OBJ_EMAIL = Nothing

Response.Redirect "confirmacion_envio.asp"

rs.Close
Set rs = Nothing
oConn.Close()
%>

Muchas gracias de antemano
  #2 (permalink)  
Antiguo 28/07/2008, 04:13
Avatar de Adler
Colaborador
 
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 17 años, 5 meses
Puntos: 126
Respuesta: Lista de correos con CDONTS

Hola

Prueba así

Cita:
If Not rs.EOF Then
Do While Not rs.EOF
Email = rs("Email")
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")
OBJ_EMAIL.From = "[email protected]"
OBJ_EMAIL.To = ""&Email&""
OBJ_EMAIL.Subject = "Lista de correo"
OBJ_EMAIL.Body = "Mensaje" & vbcrlf&_
OBJ_EMAIL.Send
Set OBJ_EMAIL = Nothing
rs.MoveNext
Loop
End If

Response.Redirect "confirmacion_envio.asp"

rs.Close
Set rs = Nothing
oConn.Close()
Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:34.