当前位置: 首页 > 图文教程 > 网络编程 > ASP > jmail4.1用pop3收信的例子

ASP
bbs的树状结构算法
bbs的树状算法的补充程序
ASP.NET:访问Excel 电子表格
ADO.NET：ADODataReader类
ADO.NET:使用ADO.NET连接文本文件
session变量中的数组如何引用
外源.js的选择调用与一个.htm网站管理初探
验证email地址是否合法完整实例
不用Global.asa实现在线人数统计
为输入及输出的数据库的资料做造型
改进性能和样式的 25+ ASP 技巧(1)
改进性能和样式的 25+ ASP 技巧(2)
改进性能和样式的 25+ ASP 技巧(3)
改进性能和样式的 25+ ASP 技巧(4)
表单递交内容检测脚本-这里只接受数字
如何使replace方法不区分大小写？
在 Web 页上使用条件数值格式
如何用asp把sqlserver数据转换为execl文件
用ADO STREAM做的无组件上传程序简单介绍
如何在主页中控制浏览权限

No. « 173 174 175 176 »

技术文章搜索

关键字

ASP 中的 jmail4.1用pop3收信的例子

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 90 ::
收藏到网摘: n/a

  <%  Set pop3 = Server.CreateObject( "JMail.POP3" )
  
  'pop3的连接用户名，密码，pop3地址
  pop3.Connect "username", "password", "mail.mydomain.com"

  Response.Write( "你有" & pop3.count & " 封邮件。<br><br>" )

  if pop3.count > 0 then
    Set msg = pop3.Messages.item(1)     
    ReTo = ""
    ReCC = ""
    
    Set Recipients = msg.Recipients
    separator = ", "
    
    ' 现在得到所有的收件人，并且存储
    
    For i = 0 To Recipients.Count - 1
        If i = Recipients.Count - 1 Then
            separator = ""
        End If
    
        Set re = Recipients.item(i)
        If re.ReType = 0 Then
            ReTo = ReTo & re.Name & "&nbsp;(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
        else
            ReCC = ReTo & re.Name & "&nbsp;(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" &
separator
        End If
    Next
    
    '这个程序得到附件，并且保存到服务器的硬盘上。也可以返回附件的详细连接
    Function getAttachments()
          Set Attachments = msg.Attachments
          separator = ", "
    
          For i = 0 To Attachments.Count - 1
            If i = Attachments.Count - 1 Then
                separator = ""
             End If
    
             Set at = Attachments(i)
             at.SaveToFile( "c:\EMail\attachments\" & at.Filename )
             getAttachments = getAttachments & "<a href=""/EMail/attachments/" & at.Filename &""">" &_
                                 at.FileName & "(" & at.Size  & " bytes)" & "</a>" & separator
          Next
    End Function
      
    %>    
    <html>
      <body>
        <TABLE>
       &n