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

追梦赵大师

追梦赵大师

2016-01-29 20:19

在ASP中用EasyMailObject组件处理Exchange邮件源代码(4),在ASP中用EasyMailObject组件处理Exchange邮件源代码(4)
删除邮件时调用的文件(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

(本文来源于图老师网站,更多请访问https://m.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))

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

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%)
分享

猜你喜欢

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

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

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

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

s8lol主宰符文怎么配

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

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

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

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

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

lol偷钱流符文搭配推荐

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

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

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

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

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

lolAD刺客新符文搭配推荐

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

Photoshop教程:给照片添加暗调艺术效果

Photoshop教程:给照片添加暗调艺术效果

asp在SQL SER2k中新建帐号和给帐号权限的实现

asp在SQL SER2k中新建帐号和给帐号权限的实现
下拉加载更多内容 ↓