Bueno este es mi problema: tengo una página llamada pfemails.asp , con la cual al ejecutarla envío e-mails a una lista de usuarios obtenida desde un BD, el problema es que no logro asignarle a oMail.To los valores de los e-mails, puesto que me da este error, que no se porque es:
Código:
Si alguien puede ayudarme se lo agradecería mucho!ADODB.Recordset error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /pfemails.asp, line 40
Esta es pfmails.asp:
Código:
<%@LANGUAGE="VBSCRIPT" %> <!--METADATA TYPE="TypeLib" FILE="E:\WINDOWS\system32\cdosys.dll" --> <% Dim datos,rs Set oMail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields ' Se configuran los parametros necesarios para el envío iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Se completan los datos del usuario y la contraseña necesarios para el envio iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 'usuario smtp iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "************" 'password para STMP iConf.Fields.Update ' Se asignan las propiedades de configuración al objeto Set oMail.Configuration = iConf ' Remitente del correo oMail.From = "[email protected]" ' Subject o asunto oMail.Subject = "Proximas Fechas" ' Cuerpo del mensaje oMail.TextBody = "Instinto!!!!!!" set rs=createobject("ADODB.Recordset") 'rs.CursorType = adOpenKeyset 'rs.LockType = adLockOptimistic rs.open "select * from celmail order by id desc",con ' Recorremos el RecordSet While not rs.EOF oMail.To rs("email") rs.MoveNext Wend rs.Close ' PAra cerrar el RecordSEt ' Se envía el correo oMail.Send ' Se destruyen los objetos Set iConf = Nothing Set Flds = Nothing If Err <> 0 Then Response.Write "Ha ocurrido un error: " & Err.Description End if con.close set con=nothing %>