03/02/2006, 02:58
|
| | | Fecha de Ingreso: octubre-2003
Mensajes: 184
Antigüedad: 21 años, 6 meses Puntos: 0 | |
| Error a enviar mails multiples
Hola otra vez!
Quiero enviar un mail a varias personas y lo hago de la siguiente manera:
if strComp(para, "Administrador")=0 then
Set oMail = Server.CreateObject("CDONTS.NewMail")
set rs=conn.execute("select * from profesor where administrador=1")
if rs.eof then%>
<script language="javascript">ErrorDest();</script>
<%else
do while not rs.eof
oMail.To = rs("corrElec")
oMail.From = request.Form("orig")
oMail.Subject = request.Form("asun")
oMail.Body = request.Form("men")
oMail.Send
Set oMail = nothing
rs.movenext
loop%>
<%end if%>
<%end if%>
Enviar el mail lo envia, pero solo a la primera persona de la lista y me aparece el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto
Esta relacionado con la linea oMail.To = rs("corrElec")
Gracias |