Utilisez le composant EasyMailObject pour traiter le code source d'échange de courrier dans le fichier ASP --- appelé lors de la suppression du courrier (mail_prc.asp)
<% @ Language = vbscript%>
<%
'******************************************
'Ce fichier est appelé lors de la suppression de l'e-mail
'Auteur: Awayeah
'Courriel: [email protected]
'******************************************
DIM CC, CC1, SEP, DD
'Obtenez le nombre total d'e-mails
msgcount = session ("msgcount")
sep = ","
pour i = 1 à msgcount
dd = "c" + cstr (i)
msgid = cStr (request.form (dd))
Si msgid = "" alors
CC1 = CC1 + MSGID
autre
CC1 = CC1 + MSGID + SEP
terminer si
suivant
Si Len (CC1) = 0 alors
Réponse.redirect "Maillist1.asp"
terminer si
CC1 = gauche (CC1, LEN (CC1) -1)
tablier
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 ()
pour i = 0 à ubund (arr)
arr (i) = clng (arr (i))
y = POP3.DownloadHeaders
'Supprimer l'e-mail
x = pop3.deletesingleMessage (arr (i))
Si x <> 0 alors
'Response.Write "<p align = Center> <br> <br> Une erreur s'est produite lors de la suppression de l'e-mail (" + cstr (x) + "). Veuillez contacter l'administrateur. <br> <br>"
'Réponse.write "<a href =' Maillist1.asp '> return </a> </p>"
Pop3.disconnect
Réponse.
Autre
'Response.write "Message supprimé avec succès".
'Response.write ""
'Pop3.disconnect
Terminer si
suivant
Pop3.disconnect
Réponse.redirect "Maillist1.asp"
%>
<html>
<adal>
<Méta name = "générateur" contenu = "Microsoft Visual Studio 6.0">
</ Head>
<body>
</docy>
</html>