首页 >> 读书频道 >> 电脑 >> 在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)
 
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 在ASP中用EasyMa
· 站内搜索脚本例子二(Ja
· 站内搜索脚本例子六(Ja
· 站内搜索脚本例子三(Ja
· 站内搜索脚本例子四(Ja
· 站内搜索脚本例子五(Ja
· 站内搜索脚本例子一(Ja
· 掌握ASP其实只需要6步
· 整理了一些ASP初学者常
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)


查看有无更新版本

关键字:ASP 2006-9-16

 

读取邮件内容和附件(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=<_25=j_25>&attid=<_25=k_25>','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>

在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)

[ 1 ]
在ASP中用EasyMailObject组件处理Exchange邮件源代码(2) num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑