用EasyMailObject组件处理Exchange邮件源代码(2)
2018-09-06 11:45
在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件内容和附件(showbody1.asp)
<%@ LANGUAGE=VBSCRIPT %>
<%
************************************************
这个文件显示邮件的内容和附件
作者：awayeah
************************************************
%>
<html>
<head>
<title>读邮件</title>
</head>
<body>
<%
SET POP3=session(POP3)
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
显示邮件内容
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);>
<%Response.Write cstr(Message.Attachments(k).size)
Response.Write </td></tr>
Next
%>
</table>
<%
end if
POP3.Disconnect
%>
</body>
</html>
文章标题：用EasyMailObject组件处理Exchange邮件源代码(2)
文章链接：http://soscw.com/index.php/essay/9697.html