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