 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在ASP中用EasyMailObject组件处理Exchange邮件源代码---删除邮件时调用的文件(mail_prc.asp) <%@ Language=VBScript %> <% 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> 返回类别: 教程 上一教程: 让您的主页支持各种浏览设备(ASP+篇)(下) 下一教程: 构造CONNECTIONSTRING的方式 您可以阅读与"用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(4)"相关的教程: · 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(1) · 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(2) · 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(7) · 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(5) · 用EASYMAILOBJECT组件处理EXCHANGE邮件源代码(3) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
