最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)
时间：2022-06-30 11:15:32 编辑：袖梨 来源：一聚教程网
读取邮件内容和附件(showbody1.asp)
<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************
'这个文件显示邮件的内容和附件
'作者：awayeah
'邮箱：[email protected]
'************************************************
%>
读邮件
<%
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),"
")
%>
<%
'如果该邮件有附件，则显示附件文件名和文件大小
if message.Attachments.Count>0 then%>
<%
end if
POP3.Disconnect
%>
<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************
'这个文件显示邮件的内容和附件
'作者：awayeah
'邮箱：[email protected]
'************************************************
%>
<%
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),"
")
%>
<%
'如果该邮件有附件，则显示附件文件名和文件大小
if message.Attachments.Count>0 then%>
| 文件名 | 大小 |
| ")%> &attid=<_25=k_25>','getatt','width=600,height=440,scrollbars=yes');> <%=Message.Attachments(k).name%> | <%Response.Write cstr(Message.Attachments(k).size) Response.Write " |
<%
end if
POP3.Disconnect
%>
相关文章
- 《星之破晓》飞鹰狂牙百里玄策怎么样 06-16
- 《无限暖暖》绿色绣花旗袍快速获取指南 06-16
- 最好用2025正规数字资产交易APP排行-最安全比特币交易平台币安推荐 06-16
- 如何获取RESOLV币？2025OKX交易所简单教程 06-16
- LUMIA币支持跨境支付吗-2025币安交易所潜力分析 06-16
- 《航海王壮志雄心》佐罗有哪些技能 06-16