最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
在ASP中用EasyMailObject组件处理Exchange邮件源代码(2)
时间:2008-01-12 编辑:简简单单 来源:一聚教程网
读取邮件内容和附件(showbody1.asp)
<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************
'这个文件显示邮件的内容和附件
'作者:awayeah
'邮箱:awayeah@163.net
'************************************************
%>
读邮件
<%
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
'邮箱:awayeah@163.net
'************************************************
%>
<%
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
%>
-
下一个: 短信发送程序
相关文章
- 在ASP中用EasyMailObject处理Exchange邮件源代码---补充说明 01-12
- 在ASP中用EasyMailObject组件处理Exchange邮件源代码(3) 01-12
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16