ASP通过JMail组件读取邮件列表

hanbaohong

浏览: 405617 次
性别:
来自: 广州

最近访客更多访客>>

cannysquirrel

jiangshaoting

342729684

geqiaoyu

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

ASP ASP.net CSS .net HTML

<html>
<style type="text/css">

</style>
<body>
<table width="800" border="0" cellspacing="1" cellpadding="5">
<form name="form1" method="post" action="">
    <tr>
      <td colspan="5" align="center"><h2>ASP通过JMail组件读取邮件列表</h2></td>
    </tr>
    <tr>
      <td>邮箱：
          <select name="pop3Server">
            <option value="pop.163.com" selected>163邮箱</option>
            <option value="pop.126.com">126邮箱</option>
</select>
      </td>
      <td>邮箱的登录名：
      <input name="uid" type="text" id="uid" size="15" maxlength="30"></td>
      <td>邮箱的登录密码：
      <input name="upwd" type="password" id="upwd" size="15" maxlength="30"></td>
      <td>日期：
      <input name="riqi" type="text" id="riqi" value="2010-03-17" size="12" maxlength="20"></td>
      <td><input type="submit" name="submit" id="submit" value="提交"></td>
    </tr>
    </form>
</table>
<table width="800" border="1" cellspacing="0" cellpadding="5">
      <tr align="center">
      <td><strong>序号</strong></td>
      <td><strong>日期</strong></td>
      <td><strong>邮件标题</strong></td>
      <td><strong>发件人</strong></td>
      <td><strong>附件</strong></td>
      <td><strong>内容</strong></td>
    </tr>
<%
if request.Form("submit")<>"" then
pop3Server=request.Form("pop3Server")
uid=request.Form("uid")
upwd=request.Form("upwd")
riqi=CDate(request.Form("riqi"))
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.Connect uid, upwd, pop3Server
'Response.Write( "你有" & pop3.count & " 封邮件。<br><br>" )
'set msg=server.CreateObject("jmail.message")
Function getAttachments() '获得附件
if Attachments.Count>0 then
   Set Attachments = msg.Attachments
  getAttachments = Attachments(0).Name & "(" & Attachments(0).Size & " bytes)"
else
getAttachments=""
end if
End Function

for i=1 to pop3.count
Set msg = pop3.Messages.item(i)
Set Attachments = msg.Attachments
if CDate(msg.date)>=riqi then%>
    <tr>
      <td align="center"><%= i %></td>
      <td align="center"><%= msg.date %></td>
      <td><%= msg.Subject %></td>
      <td><%= msg.FromName %> </td>
      <td><%= getAttachments %> </td>
      <td><%'=left(msg.Body,50) %> </td>
    </tr>
<%end if
next
pop3.Disconnect
end if%>
</table>
</body>
</html>

在线演示：http://www.aspok.net/yanshi/aspreadmail.asp

分享到：

用VB开发一个像QQ的即时聊天软件 | 在VB中让窗体最小化到托盘区

2010-03-19 11:33
浏览 1906
评论(0)
分类:Web前端
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论