当前位置：首页 > 资讯 > 技术文档

如何用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)

上一篇：windows下apache的简单命令
下一篇：Java的正则表达式深入分析

资讯排行榜
更多>>