hi .... i have tried to use this code but it juz cant work ... i cant find out the problem with this code ... this program is suppose to read my email and display all my messages that i have in my inbox. Can anyone help me with this ??? Thanx alots !! i'am stilll a noob in this.... haha juz started it like one month ago ...
<%
'Open a connection to the POP3 server
Dim Mailer
Set Mailer = Server.CreateObject("POP3svg.Mailer")
Mailer.RemoteHost = "mail.hotmail.com"
Mailer.UserName = "raynertengjinsheng"
Mailer.Password = "qwerty"
Mailer.OpenPop3
'Find out how many messages there are
Dim iMessages
iMessages = Mailer.MessageCount
Response.Write "There are " & iMessages & " messages on the server.<p>"
Dim iLoop
'Display the table
Response.Write "<table border=5 align=center cellspacing=5>"
Response.Write "<tr><th> </th><th>Subject</th><th>From</th></tr>"
'Loop through all of the available messages
For iLoop = 1 to iMessages
If Mailer.Retrieve(iLoop) then
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 'iLoop
Response.Write "</table>"
'Close the connection to the POP3 server
Mailer.ClosePop3