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

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

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

【 tulaoshi.com - ASP 】

删除邮件时调用的文件(mail_prc.asp)
<%@ Language=VBScript %
<%
'*************************************

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

'这个文件是删除邮件时调用的
'作者:awayeah
'邮箱:awayeah@163.net

'*************************************

dim cc,cc1,sep,dd
'取得邮件总数
msgcount = session("msgcount")
sep=","

for i=1 to msgcount
dd="c"+cstr(i)
msgid=cstr(Request.Form (dd))
if msgid="" then
cc1=cc1+msgid
else
cc1=cc1+msgid+sep
end if
next

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

if len(cc1)=0 then
Response.Redirect "maillist1.asp"
end if
cc1=left(cc1,len(cc1)-1)
dim arr
arr=split(cc1,",")
Set POP3 = CreateObject("EasyMail.POP3.5")
pop3.account=session("straccount")
pop3.password=session("strpassword")
POP3.MailServer = "192.9.200.89"
POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"

x = POP3.Connect()
for i=0 to ubound(arr)
arr(i)=clng(arr(i))
y = POP3.DownloadHeaders

'删除邮件

x = POP3.DeleteSingleMessage(arr(i))

If x < 0 Then
' Response.Write "<p align=center<br<br删除邮件发生错误( " + CStr(x) + ").请与管理员联系.<br<br"
' Response.Write "<a href='maillist1.asp'返回</a</p"
POP3.Disconnect
Response.End
Else
'Response.Write "Message deleted successfully."
'Response.Write ""
'POP3.Disconnect
End If
next
POP3.Disconnect
Response.Redirect "maillist1.asp"
%
<HTML
<HEAD
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"
</HEAD
<BODY
</body
</html

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

延伸阅读
标签: ASP
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件主题和大小(maillist1.asp) <%@ LANGUAGE="VBSCRIPT" % <% '************************************************ '这个文件列出所有邮件,并把邮件内容显示窗口置为空白窗口 '作者:awayeah '邮箱:awayeah@163.net '************...
标签: 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" % <% /*  *-----------...

经验教程

734

收藏

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