de donde mismo sacaste el codigo para leer tus correos puedes encontraras la descripcion de lo errores al usar el cdont.
Cita: 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