欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-06-04 11:46:23
在asp中用easymailobject处理exchange邮件源代码---删除邮件时调用的文件(mail_prc.)<%@ language=vbscript %><%*****...
在asp中用easymailobject处理exchange邮件源代码---删除邮件时调用的文件(mail_prc.)

<%@ language=vbscript %>
<%
*************************************

这个文件是删除邮件时调用的
作者: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

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>