用EasyMailObject组件处理Exchange邮件源代码(4)
2018-09-06 12:27
在ASP中用EasyMailObject组件处理Exchange邮件源代码---删除邮件时调用的文件(mail_prc.asp)
<%@ Language=VBScript %>
<%
*************************************
这个文件是删除邮件时调用的
作者：awayeah
*************************************
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
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>
文章标题：用EasyMailObject组件处理Exchange邮件源代码(4)
文章链接：http://soscw.com/index.php/essay/10339.html