checkbox mail

[zink]

Estoy haciendoun pagina que envia mails dependiendo de los checkbox seleccionados, en una pagina tengo la tabla los checkbox etc. (Los checkbox tienen el mismo nombre "mail" y como value una direccion de correo para cada uno) y manda llamar a una segunda pagina que tiene el siguiente codigo:
<%
checkbox= request("mail")
For each item In checkbox
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPickup = 1

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="C:\Program files\Exchsrvr\Mailroot\vsi 1\PickUp\"
.Update
End With
Dim iBP
With iMsg
Set .Configuration = iConf
.To = checkbox
.From = "[email protected]"
.Subject = "saludos"
.HTMLBody = "hola"
.Send
End With

Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

Next
%>


al ejecutarlo me manda un error que dice:
Microsoft VBScript runtime error '800a01c3'
Object not a collection
marca error enla linea 16, y esa linea es: "For each item In checkbox"

Si me pueden echar una mano se lo agradeceré.

[mamon]

pero la vdd es q me parece q el resultado de request("mail") debe ser algo asi: "[email protected], [email protected], [email protected]"

x eso seguro es el roche... xq no mejor quitas eso de for each.... y quitas tb next... osea se va a mandar a todos los mails, xq están separados x comas... si quieres mandar uno x uno... lo puedes hacer asi

Arreglo=Split(checkbox,", ")
numero = Ubound(Arreglo)

for i = 0 to numero

'aquí en el medio pones todo ese código que está entre tu for each.. y el next
'pero en vez de poner
'.to = checkbox
pones
'.to = Arreglo(i)

next

la vdd es q no lo he probado..pero si hay un error pásatelo pes..pa ir viendo.. o fácil me he mandado a decirte un florazo y esto no es lo que quieres....

pero igual, lo q importa es tratar de ayudar..jejejeje

[zink]

Gracias por la ayuda, me fue de gran utilidad y funcionó bien.

perdon por no reportarme antes.

Gracias.

[zink]

mmm creo que respondí antes de probarlo bien.
Para un mail si funciona correctamente pero cuendo es mas de 1 me marca error.

Microsoft VBScript runtime error '800a0411'
Name redefined: 'cdoSendUsingPickup'

Si me pueden ehcar una mano se los agradeceré

[Bluesman74cl]

yO TUVE EL MISMO PROBLE PERO HAZ LO SIGUIENTE...


mail = request.form("mail")
arrmail = split(mail,",")
for i = 0 to Ubound(arrmail)
c = trim(arrmail(i))
arrmail(i)= c
sql="Insert into bla bla (bla, bla) values ( '"&bla, "& arrmail(i) &"'' )"

conexion.Execute(sql)

Next



creo que ahi sip... salu2

[mamon]

buen lo vdd es q no sé para q sirve "Const cdoSendUsingPickup = 1"... no había leido ese código antes..espero te haya servido lo que te dio Bluesman74cl

[mamon]

y q fue?? te funcionó??

[zink]

Gracias por responder.

Una pregunta Bluesman74cl :
Para que utilizas el:
sql="Insert into bla bla (bla, bla) values ( '"&bla, "& arrmail(i) &"'' )"
conexion.Execute(sql)

No se por que los guardas en una tabla, no lo creo necesario, o no estoy entendiendo la lógica del codigo, de todas formas gracias por responder.

Les comento que ya lo resolví de esta forma:
<%
......
......
For each checkbox In Request("mail")

With iMsg
Set .Configuration = iConf
.To = checkbox
.From = "[email protected]"
.Subject = "----Envío -----"
.HTMLBody = "hola"
.Send
End With
Next
.....
.....
'Gracias Vic !!!!!!
%>


Gracias Mamon
Gracias Bluesman74cl

[Gataloba]

Hola a todos; veo que están luchando como yo con los checkboxs dichosos ; y esperaba si alguien me podia ayudar; porque mi complicación es que tengo que tomar el valor del mismo sin usar la orden Request de ASP (idioma que yo manejo), sino dentro de una sentencia de Vbscript.
Es decir que dentro de un formulario tengo una serie de chekbox con el mismo nombre, y varios valores:

<form name="formulariover" method="post" action="procesar.asp">
<input type="checkbox" name="caja" value="1">
<input type="checkbox" name="caja" value="2">
<input name="caja" type="checkbox" value="3" checked>
</form>

Y luego un link que ejecuta un procedimiento VBscript que tiene que recuperar los datos del formulario entre ellos las cajas. Yo hice esto; pero no funciona:

<script language="vbscript" type="text/vbscript">
sub pasar()
dim caja,t,ver
ver=document.formulariover.caja.value
loc="ver.asp?que="&ver
t=msgbox(ver,vbokcancel,"Mensaje")
end sub
</script>

Tambien traté de otra manera aunque no me sirve porque la cantidad de cajas varía dinamicamente:

<script language="vbscript" type="text/vbscript">
sub pasar()
dim caja1,caja2,caja3,t
if document.formulariover.caja1.checked then
caja1=document.formulariover.caja1.value
end if
if document.formulariover.caja2.checked then
caja2=document.formulariover.caja2.value
end if
if document.formulariover.caja2.checked then
caja3=document.formulariover.caja2.value
end if
t=msgbox(caja1&"-"&caja2&"-"&caja3,vbokcancel,"Mensaje")
end sub
</script>

Al recuperar el valor se tiene que obtener algo como esto "1,2,3" y volver a pasarlo a la página mediante document.locate (creo que era) y procesarlo.
El problema es que parece que no acepta la propiedad VALUE. Pero entonces como quiere que recupere los venditos valores???

Estoy a punto de estrellar mi cabeza contra el monitor.



Si alguien puede resolver este problema se lo voy a agradecer.