Use el componente EasyMailObject para procesar el código fuente de intercambio de correo en el archivo ASP --- llamado al eliminar el correo (mail_prc.asp)
< %@ Idioma = vBscript %>
<%
'********************************************
'Se llama a este archivo al eliminar el correo electrónico
'Autor: awayeah
'Correo electrónico: [email protected]
'********************************************
Dim CC, CC1, SEP, DD
'Obtenga el número total de correos electrónicos
msgcount = session ("msgcount")
sep = ","
para i = 1 a msgcount
dd = "c"+cstr (i)
msgid = cstr (request.form (dd))
Si msgid = "" entonces
cc1 = cc1+msgid
demás
CC1 = CC1+MSGID+SEP
final si
próximo
Si len (cc1) = 0 entonces
Respuesta.Redirect "Maillist1.asp"
final si
CC1 = izquierda (CC1, LEN (CC1) -1)
ARR ARR
arr = Split (CC1, ",")
Establecer pop3 = createObject ("Easymail.pop3.5")
Pop3.ACCOUNT = Session ("Straccount")
Pop3.password = session ("strassword")
Pop3.mailserver = "192.9.200.89"
Pop3.licensekey = "AWA/S19I500R1AX30C0R3100"
x = pop3.connect ()
para i = 0 a Ubund (arr)
arr (i) = clng (arr (i))
y = pop3.downloadheaders
'Eliminar el correo electrónico
x = pop3.deletesingleMessage (arr (i))
Si x <> 0 entonces
'Response.write "<p align = Center> <br> <br> Se produjo un error al eliminar el correo electrónico (" + cstr (x) + "). Comuníquese con el administrador. <br> <br>"
'Response.write "<a href =' maillist1.asp '> return </a> </p>"
Pop3. Disconectar
Respuesta.
Demás
'Response.Write "Mensaje eliminado con éxito".
'Response.write ""
'Pop3.Disconnect
Final si
próximo
Pop3. Disconectar
Respuesta.Redirect "Maillist1.asp"
%>
<html>
<Evista>
<Meta name = "generador" content = "Microsoft Visual Studio 6.0">
</ablo>
<Body>
</body>
</html>