Que sucede aqui.

[affv]

que esta mal de este codigo. tengo horas analizandolo y no me funciona alguien que me ayude.


<%
'Identificación
Set Correo = server.createobject("CDONTS.Session")
Correo.logonSMTP "administrador" , _
[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

'Recuperación 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
%>

Se supone que con el voy a poder leer los correos que han llegado a la cuenta administrador del servidor smtp pero nada.

[Sir Matrix]

hola,
qué error te da?
qué componente para email estás usando?

[bakanzipp]

de donde mismo sacaste el codigo para leer tus correos puedes encontraras la descripcion de lo errores al usar el cdont.

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/fabi/data/enviar.asp, line 2
Invalid class string

esto ultimo significa que no tienes el objeto

Microsoft VBScript runtime error '800a0009'
Subscript out of range

significa que el index que pones, es decir:
For k = 0 to Mensajes.count
Set elMensaje = Mensajes.item(k)
esta fuera de los limites prueba
for each mensaje in Mensajes
Set elMensaje = mensaje


Error de Microsoft VBScript en ...(0x800A0046)
Permiso denegado

significa que no abriste sesion o que la
sesion no es valida

referencia