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.CreateOb ject("POP3svg.M ailer")
Mailer.RemoteHo st = "mail.xxxx. com"
Mailer.UserName = "te**@xxxx. com"
Mailer.Password = "pwd"
Mailer.OpenPop3
Dim iMessages
iMessages = Mailer.MessageC ount
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=""readMess age.asp?ID=" & iLoop &
""">Read</a></td>"
Response.Write "<td>" & Mailer.Subject & "</td>"
Response.Write "<td>" & Mailer.FromName & " (<a href=""mailto:" ""
& Mailer.FromAddr ess & """>" & Mailer.FromAddr ess & "</a>)</td>"
Response.Write "</tr>"
'End If
Next
Response.Write "</table>"
Mailer.ClosePop 3
