<%
'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 = 1 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
%>
En que falla esto, me falta configurar algo en el IIS o pasarme otro codigo que funcionerrr!!!
