Ya que andamos en esto... una cosa mas....
Resulta que los correos de destino, los obtengo mediante una consulta a una base de datos y cuando quiero enviarlo a un solo correo, funciona a la perfecci'on, pero cuando trato de hacerlo a varios, no puedo... solo toma el primer registro que encuestra y truena el bucle:
Categoria=Error de Microsoft VBScript en tiempo de ejecución
Numero=(0x800A01A8)
Descripcion=Se requiere un objeto: 'myMail'
este es el codigo que uso
Código:
function url_encuesta(usuario,institucion,correo,concat)
url = "http://miurl/mipagina.asp?"
cadena = (url) & "usuario=" & usuario & "&institucion=" & institucion & "&correo=" & correo & "&codigomd5=" & concat & "&BtnEntrar=Entrar"
myMail.Subject="Encuesta"
myMail.From="[email protected]"
myMail.To=(mail)
myMail.TextBody=cadena
myMail.Send
set myMail=nothing
end function
Set con=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")
Set myMail = server.CreateObject("CDO.Message")
Con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("formulario.mdb")
Con.open
Rs.open "Select usuario,institucion,correo From correos Where institucion ='x'",con
usr = Rs("usuario")
ins = Rs("institucion")
mail = Rs("correo")
concat = usr & ins & mail
concat = MD5(concat)
Do While not Rs.eof
url_encuesta usr,ins,mail,concat
...
Rs.movenext
loop