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

微信766157646

微信766157646

2016-01-29 17:39

用EasyMailObject组件处理Exchange邮件源代码(4),用EasyMailObject组件处理Exchange邮件源代码(4)
  在ASP中用EasyMailObject组件处理Exchange邮件源代码---删除邮件时调用的文件(mail_prc.asp)

<%@ 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
 
展开更多 50%)
分享

猜你喜欢

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

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

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

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

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

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

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

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

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

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

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

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

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

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

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

实例解析:虚拟机中Lvs的负载均衡实验

实例解析:虚拟机中Lvs的负载均衡实验

linux设备驱动笔记——字符设备驱动

linux设备驱动笔记——字符设备驱动
下拉加载更多内容 ↓