用easymailobject组件处理exchange邮件源代码(2)

　　在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>

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

用easymailobject组件处理exchange邮件源代码(2)

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

用easymailobject组件处理exchange邮件源代码(2)

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范