Can anyone tell me why this code doesn't work? The original came from
an example in this group, but was modified slightly when the original
failed to return message details.

I am able to connect to the server and see the number of messages on
the server, but message details (sender, subject, body, etc.) are not
returned.

_______________
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail.x.com"
Mailer.UserName = "testx.com"
Mailer.Password = "pwd"
Mailer.OpenPop3
Dim iMessages
iMessages = Mailer.MessageCount
Response.Write "There are " & iMessages & " messages on the
server.<p>"

Dim iLoop

Response.Write "<table border=1 align=center cellspacing=1>"
Response.Write
"<tr><th>&nbsp;</th><th>Subject</th><th>From</th></tr>"

For iLoop = 1 to iMessages
'If Mailer.Retrieve(iLoop) then
Mailer.Retrieve iloop

Response.Write "<tr>"
Response.Write "<td>" & Mailer.Subject & "</td>"
Response.Write "<td>" & Mailer.FromName & "</td>"
Response.Write "</tr>"
'End If

Next

Response.Write "</table>"

Mailer.ClosePop3