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

最新推荐文章于 2021-07-30 03:07:08 发布

iteye_14829

最新推荐文章于 2021-07-30 03:07:08 发布

阅读量221

点赞数

分类专栏： ASP 文章标签： ASP ASP.net CSS .net HTML

ASP 专栏收录该内容

30 篇文章 0 订阅

订阅专栏

<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

iteye_14829

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
ASP通过JMail组件读取邮件列表

&lt;html&gt;&lt;style type="text/css"&gt;&lt;!--body,td,th { font-size: 9pt;}--&gt;&lt;/style&gt; &lt;body&gt; &lt;table width="800" border="0" cellspacing="1" cellpaddin
复制链接

扫一扫