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

ASP
很不错的一个UBB代码
获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP
无组件生成缩略图
如何远程调用ACCESS数据库[要求加精！！]
也谈采集入库的技术
asp打包类
分页类，异常类
ASP用JMail、CDO发送邮件
保存远程图片函数修改正版
图片自动保存到本地并利用aspjpeg为图片加水印
改进 ASP 的字符串处理性能
简单分页函数一 常用
LINE9的目录浏览源程序
使用XMLDOM在不支持FSO的服务器上
[原创]本人常用的asp代码
生成所有页面的效果+分页生成
[原创]asp+fso在线管理图片功能
ASPJPEG学习手记
ASP代码的对象化
[原创]关于Script的Defer属性

No. « 100 101 102 103 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 193 ::
收藏到网摘: 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