Use o componente EasyMailObject para processar o código-fonte do Exchange Mail no ASP --- Arquivo chamado ao excluir o correio (Mail_PRC.asp)
< %@ Idioma = vbscript %>
<%
'********************************************
'Este arquivo é chamado ao excluir o email
Autor: Awayeah
'E -mail: [email protected]
'********************************************
Dim CC, CC1, SEP, DD
'Obtenha o número total de e -mails
msgCount = sessão ("msgCount")
sep = ","
para i = 1 para msgCount
dd = "c"+cstr (i)
msgid = cstr (request.form (dd))
Se msgid = "" então
cc1 = cc1+msgid
outro
cc1 = cc1+msgid+set
final se
próximo
Se Len (cc1) = 0 então
Response.Redirect "maillist1.asp"
final se
CC1 = esquerda (CC1, LEN (CC1) -1)
Dim arr
arr = split (cc1, ",")
Set pop3 = createObject ("easymail.pop3.5")
pop3.Account = Session ("Straccount")
pop3.password = sessão ("strpassword")
POP3.MAILSERVER = "192.9.200.89"
Pop3.licenseKey = "AWA/S19I500R1AX30C0R3100"
x = pop3.Connect ()
para i = 0 para ubund (arr)
arr (i) = clng (arr (i))
y = pop3.DownloadHeaders
'Exclua o email
x = POP3.DELETESINGLEMESSAGE (arr (i))
Se x <> 0 então
'Response.Write "<P align = Center> <br> <br> Ocorreu um erro ao excluir o email (" + cstr (x) + "). Entre em contato com o administrador. <br> <br>"
'Response.write "<a href =' maillist1.asp '> retornar </a> </p>"
POP3.Disconnect
Resposta.END
Outro
'Response.Write "Mensagem excluída com sucesso."
'Response.Write ""
'POP3.Disconnect
Final se
próximo
POP3.Disconnect
Response.Redirect "maillist1.asp"
%>
<html>
<head>
<Meta name = "generator" content = "Microsoft Visual Studio 6.0">
</head>
<Body>
</body>
</html>