jmail4.1用pop3收信的例子

原创 2001年05月10日 11:23:00

jmail4.1用pop3收信的例子

<%  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>
          <tr>
            <td>邮件标题</td>
            <td><%= msg.Subject %></td>
          </tr>
          <tr>
            <td>发件人</td>
            <td><%= msg.FromName %></td>
          </tr>
          <tr>
            <td>收件人</td>
            <td><%= ReTO %></td>
          </tr>
          <tr>
            <td>抄送</td>
            <td><%= ReCC %></td>
          </tr>
          <tr>
            <td>附件</td>
            <td><%= getAttachments %></td>
          </tr>
          <tr>
            <td>内容</td>
            <td><pre><%= msg.Body %></pre></td>
          </tr>       
        </TABLE>
      </body>
    </html>

<%  end if

  pop3.Disconnect

%>

jmail4.1用pop3收信的例子

‘pop3的连接用户名,密码,pop3地址pop3.Connect "lqbbn_spw", "spw3154", ".163.com"Response.Write( "你有" & pop3.coun...
  • xiaonv
  • xiaonv
  • 2005年12月08日 15:42
  • 452

asp.net,pop3实现收邮件代码实例

PopMail.aspx.vb (Logging On & Logging Off) ...
  • xddouble
  • xddouble
  • 2007年09月20日 15:38
  • 2290

网络编程之POP3协议邮箱收信

POP3例子编程软件:VS2015 语言:C/C++ 这里主要讲解POP3邮箱收信 了解E-Mail的协议:http://blog.csdn.net/aaron133/article/details/...
  • Aaron133
  • Aaron133
  • 2017年11月01日 14:25
  • 5386

POP3重复接收邮件的问题研究

在Outlook 2003中设置了在服务器上保留邮件副本之后,在pst文件中就会生成一个已经接收邮件的列表,称为UIDL缓存。UIDL是标志一个邮箱中唯一一封邮件的标志。这样客户端连接到POP3服务器...
  • xtx1990
  • xtx1990
  • 2013年05月22日 16:54
  • 1156

pop3客户端,email收信

资源下载:http://download.csdn.net/source/765429eMail.Pop pop = new eMail.Pop();pop.Email = "test@sina.co...
  • sq_zhuyi
  • sq_zhuyi
  • 2008年11月11日 11:05
  • 4402

用PHP实现POP3邮件的收取

原文内容没有变化,在公司快消化了两个系统了,所以打算自己写一个功能还可以的个人系统,我知道网上很多,我也收集了好几个,但是想看看自己能不能做出来,好好加油吧,在筹备的过程中遇到了邮件这样的问题,所以花...
  • yw1386
  • yw1386
  • 2009年09月17日 17:00
  • 1104

POP3收信的perl客户端

看advprog里面的Perl代码,自己试验了一下,很好用。主要是把新浪邮箱里我不关心的邮件统统删除。#!/usr/local/bin/perluse Net::POP3;$m = Net::POP3...
  • Aylazhang
  • Aylazhang
  • 2007年08月01日 11:30
  • 1393

python学习——POP3收取邮件

SMTP用于发送邮件,如果要收取邮件呢? 收取邮件就是编写一个MUA作为客户端,从MDA把邮件获取到用户的电脑或者手机上。收取邮件最常用的协议是POP协议,目前版本号是3,俗称POP3。 Pyth...
  • youzhouliu
  • youzhouliu
  • 2016年07月19日 08:13
  • 2239

客户端SMTP和POP3举例

#!/usr/bin/env python from smtplib import SMTP from poplib import POP3 from time import sleep SMTP...
  • u010657094
  • u010657094
  • 2014年11月06日 21:46
  • 569

在VB.NET中应用SMTP和POP3 服务

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 04:05
  • 213
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:jmail4.1用pop3收信的例子
举报原因:
原因补充:

(最多只允许输入30个字)