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.xxxx.com"
Mailer.UserName = "te**@xxxx.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> </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><a href=""readMessage.asp?ID=" & iLoop &
""">Read</a></td>"
Response.Write "<td>" & Mailer.Subject & "</td>"
Response.Write "<td>" & Mailer.FromName & " (<a href=""mailto:"""
& Mailer.FromAddress & """>" & Mailer.FromAddress & "</a>)</td>"
Response.Write "</tr>"
'End If
Next
Response.Write "</table>"
Mailer.ClosePop3
