源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

如何用POP3接收电子邮件?

  • 时间:2022-09-24 19:39 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:如何用POP3接收电子邮件?
<%  Set pop3 = Server.CreateObject( "JMail.POP3" )   pop3.Connect "username", "password", "pop3mail.intels.net"   ' POP3的连接用户名,密码,POP3地址.   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 & "(<a href=""mailto:"& re.EMail &""">" & re.EMail & "</a>)" & separator         else             ReCC = ReTo & re.Name & "(<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:\intels\email\attachments\" & at.Filename )             getAttachments = getAttachments & "<a href=""/intels/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>发件人:李雁冰@163.net</td>             <td><%= msg.FromName %></td>           </tr>           <tr>             <td>收件人:宋颜浩@163.net</td>             <td><%= ReTO %></td>           </tr>           <tr>             <td>抄送:申朝阳@163.net</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 %>

[b][1][/b]
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部