| 本月文章推荐 |
用EasyMailObject组件处理Exchange邮件源代码(2)发表日期：2002-4-9
|
|
在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件内容和附件(showbody1.asp)
<%@ LANGUAGE="VBSCRIPT" %> <% '************************************************ '这个文件显示邮件的内容和附件 '作者：awayeah '邮箱：awayeah@163.net '************************************************ %> <html> <head> <title>读邮件</title> </head> <body> <% SET POP3=session("POP3") x = POP3.Connect() If x <> 0 Then Response.Write "连接错误: " + CStr(x) POP3.Disconnect End If y = POP3.DownloadHeaders j=pop3.GetMessageNumFromID(request.querystring("id")) msg = POP3.DownloadSingleMessage(j) 'Set Message Object to point to that downloaded message Set Message = POP3.Messages(msg) '显示邮件内容 Response.Write replace(Message.bodytext,chr(13),"<br>") %> <% '如果该邮件有附件，则显示附件文件名和文件大小 if message.Attachments.Count>0 then%> <P></p> <hr> <table border=1 align="left" cellspacing="0"> <tr><td>文件名</td><td>大小</td><tr> <% For k = 1 To message.Attachments.Count Response.Write ("<tr><td>")%> <a href=# onClick=javascript:window.open('saveatt.asp?msgid=<%=j%>&attid=<%=k%>','getatt','width=600,height=440,scrollbars=yes');> <%=Message.Attachments(k).name%></a></td><td> <%Response.Write cstr(Message.Attachments(k).size) Response.Write "</td></tr>" Next %> </table> <% end if POP3.Disconnect %> </body> </html> |
| 上一篇：用EasyMailObject组件处理Exchange邮件源代码(1)
人气:11893 下一篇：用EasyMailObject组件处理Exchange邮件源代码(3) 人气:11017 |
| 浏览全部用EasyMailObject组件处理Exchange邮件源代码的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
