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é.