problema para recibir correo con CDONT

methos
21 de Octubre del 2004
Tengo el siguiente error:
Microsoft VBScript runtime error '800a0009'
Subscript out of range

El codigo es un ejemplo que esta en esta misma pagina sobre otras utilidades de cdont y me da este error y por mas que lo he intentado no lo puedo corregir, si alguien tiene una pista se los agradeceria.

Este es el codigo por aquello:

'Identificacin
Set Correo = server.createobject("CDONTS.Session")
Correo.logonSMTP "contrasena" , "[email protected]"

'Acceder a la bandeja de entrada
Set Bandeja = Correo.inbox
'Crear un objeto que almacene los mensajes de la bandeja anterior
Set Mensajes = Bandeja.messages
'Recuperacin de los mensajes
For k = 0 to Mensajes.count
Set elMensaje = Mensajes.item(k)
'Obtener el nombre del remitente
Response.write "Desde: " & elMensaje.sender & "<br>"
'Obtener el asunto del mensaje
Response.write "Asunto: " & elMensaje.subject & "<br>"
'Obtener el texto del mensaje
Response.write elMensaje.text & "<br>"
Next

'logoff
Correo.logoff
Set Correo = nothing

Mario Ruiz
21 de Octubre del 2004
Lo has llegado a solucionar???
Yo tengo un problema similar

Cristian
21 de Octubre del 2004
El problema es que trae 0 mensaje por ello se cae el FOR. Debes agregar un If antes.

if Mensajes.count<>0 then
For k = 0 to Mensajes.count
Set elMensaje = Mensajes.item(k)
'Obtener el nombre del remitente
Response.write "Desde: " & elMensaje.sender & "<br>"
'Obtener el asunto del mensaje
Response.write "Asunto: " & elMensaje.subject & "<br>"
'Obtener el texto del mensaje
Response.write elMensaje.text & "<br>"
Next
else
response.Write("No hay mensajes")
end if