 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% 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 & " (<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:EMailattachments" & 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 %> 返回类别: 教程 上一教程: 一个基于ASP的标题广告治理系统(二) 下一教程: ASP和C#隐藏文件下载路径的方式 您可以阅读与"JMAIL4.1用POP3收信的例子"相关的教程: · ASP 编程中 15 个异常有用的例子 · 在ASP中通过OO4O连接ORACLE数据库的例子 · 一个简朴的网上书城的例子(四) · 一个简朴的网上书城的例子（七） · ASP 编程中20个异常有用的例子（一） |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
