Verwenden Sie EasyMailObject-Komponente, um den Exchange-Mail-Quellcode in ASP --- Datei beim Löschen von Mail (mail_prc.asp) zu verarbeiten.
< %@ Sprache = vbScript %>
<%
'**********************************************
'Diese Datei wird beim Löschen der E -Mail aufgerufen
'Autor: Awayeah
'E -Mail: [email protected]
'**********************************************
Dim CC, CC1, Sep, DD
'Holen Sie sich die Gesamtzahl der E -Mails
MSGCount = Session ("MSGCount")
sep = ",", ","
für i = 1 bis msgcount
dd = "c"+cstr (i)
msgid = cstr (request.form (dd))
Wenn msgid = "" dann
CC1 = CC1+MSGID
anders
CC1 = CC1+MSGID+SEP
Ende wenn
nächste
Wenn Len (cc1) = 0 dann
Antwort.Redirect "Maillist1.asp"
Ende wenn
CC1 = links (CC1, Len (CC1) -1)
Dim arr
arr = split (cc1, ","))
Setzen Sie Pop3 = CreateObject ("EasyMail.pop3.5")
pop3.account = session ("staccount")
pop3.password = session ("strPassword")
Pop3.mailserver = "192.9.200.89"
Pop3.licenseKey = "AWA/S19I500R1AX30C0R3100"
x = pop3.connect ()
für i = 0 bis ubund (arr)
arr (i) = clng (arr (i))
y = pop3.downloadHeaders
'Löschen Sie die E -Mail
x = pop3.deletesinglemessage (arr (i))
Wenn x <> 0 dann
'Response.write "<p align = center> <br> <br> Ein Fehler beim Löschen der E -Mail (" + cstr (x) + "). Bitte kontaktieren Sie den Administrator. <br> <br>"
'Response.write "<a href =' mAillist1.asp '> return </a> </p>"
Pop3.disconnect
Antwort.end
Anders
'Response.write "Nachricht erfolgreich gelöscht."
'Response.write ""
'Pop3.disconnect
Ende wenn
nächste
Pop3.disconnect
Antwort.Redirect "Maillist1.asp"
%>
<html>
<kopf>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</Head>
<body>
</body>
</html>