28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect "账号", "密码", "pop3.163.com"
Response.Write( "您有" & pop3.count & " 封邮件<br><br>" )
for i = 1 to pop3.count
Set msg = pop3.Messages.item(i)
ShowEmailList = ShowEmailList + cstr(i) + "." + msg.Subject + "<br>"
next
%>
<html>
<head>
<meta http-equiv = "Content-Type" content = "text/html; charset=gb2312" />
</head>
<body>
<TABLE>
<tr>
<td><%= ShowEmailList %></td>
</tr>
</TABLE>
</body>
</html>
<%
pop3.Disconnect
%>