用EasyMailObject组件处理Exchange邮件源代码(2)
2016-01-29 17:40
用EasyMailObject组件处理Exchange邮件源代码(2),用EasyMailObject组件处理Exchange邮件源代码(2)
<%@ 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.Count0 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
