当前位置： 移动技术网 > IT编程>开发语言>.net > 用EasyMailObject组件处理Exchange邮件源代码(4)

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

2018年10月12日  | 移动技术网IT编程  | 我要评论

摩尔勇士弓箭手加点,黄义达壁纸,崇明县haobc

在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>

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网