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

2016-01-29 20:19 3 1 收藏

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

【 tulaoshi.com - ASP 】

读取邮件内容和附件(showbody1.asp)
<%@ LANGUAGE="VBSCRIPT" %
<%
'************************************************

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

'这个文件显示邮件的内容和附件
'作者: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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

来源:http://www.tulaoshi.com/n/20160129/1510997.html

延伸阅读
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---删除邮件时调用的文件(mail_prc.asp) <%@ Language=VBScript % <% '************************************* '这个文件是删除邮件时调用的 '作者:awayeah '邮箱:awayeah@163.net '************************************* dim cc,cc1,sep,dd '取得邮件总数 msgcount = s...
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---发送邮件(p_sendmail.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来发送邮件 '作者:awayeah '邮箱:awayeah@163.net '************************************* if session("straccount")="" or session(&...
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---保存附件(saveatt.asp) <%@ Language=VBScript % <% '************************************* '这个文件用来下载附件 '作者:awayeah '邮箱:awayeah@163.net '************************************* Dim fso, tempfile Set fso = CreateObject("Scripting.FileS...
标签: ASP
  在ASP中用EasyMailObject处理Exchange邮件源代码---补充说明 这些代码是针对Microsoft Exchange Server 5.5开发的,对服务器不一定可用,我在Imail 7.04上就用不了,可能是因为两个服务器对邮件的处理有点不同,譬如在Exchange上每个邮件都有一个唯一的ID,是不变的。但在Imail上就不一样了,它的邮件ID是可变的,譬如你有20封邮件,它...
标签: ASP
  从网上兴致冲冲地下载了ASP源代码,准备学习研究的时候.一打开文件,天书般的加密代码.很让人郁闷吧 :( 在网上是找到了解密的方法,得一个文件挨一个文件地打开,复制,粘贴,解密,再复制,再粘贴,再保存...... 如果一个ASP程序有几百个文件??? 解决办法来了.. decode.asp <% @Language="JavaScript" % <% /*  *-----------...

经验教程

728

收藏

6
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部