R
Rich_C
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 = "(e-mail address removed)"
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
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 = "(e-mail address removed)"
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