Ver Mensaje Individual
  #3 (permalink)  
Antiguo 07/07/2005, 06:47
edumferreyra
 
Fecha de Ingreso: junio-2005
Mensajes: 114
Antigüedad: 19 años, 10 meses
Puntos: 0
Encontré esto, todavía no lo probé, en la página
http://programacion.com/asp/articulo/cdonts/
Espero que sirva , acepto más sugerencias.

Otras utilidades del objeto CDONTS
Si bien el uso más extendido del objeto CDONTS es el envio de correo, también puede utilizarse para visualizar en páginas ASP los mensajes recibidos por el servidor de correo SMTP de nuestro servidor NT.

El siguiente código ilustra como leer los mensajes de la carpeta "Bandeja de entrada" de la cuenta del usuario "Administrador"

Lectura de mensajes recibidos
<%
'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
%>