Use o componente EasyMailObject para lidar com o código-fonte do Exchange Mail no ASP --- Leia o assunto e o tamanho do e-mail (maillist1.asp)
< %@ Idioma = "vBScript" %>
<%
'***************************************************** *****
'Este arquivo lista todos os e -mails e define a janela de exibição de conteúdo de email como uma janela em branco
Autor: Awayeah
'E -mail: [email protected]
'***************************************************** *****
%>
<idioma de script = vBScript>
parent.frmbottom.location.href = "Blank.htm"
sub cmdel_onClick ()
'Exclua o email
frmail.submit
final sub
</script>
<%
Se sessão ("straccount") = "" ou sessão ("strpassword") = "" então
Response.Write ("<html> <title> Erro, ainda não logado </title> <body> <p align = Center> <br> <br> Você ainda não está conectado, faça logon primeiro! <BR > <br> ")
Response.Write ("<a href = 'login.asp' target = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' fronteira = 0 >/a> </p> </body> </html> ")
Resposta.END
final se
%>
<html>
<head>
<Title> Receba email </title>
</head>
<Estilo>
<!-
A {Decoração de texto: Nenhum}
->
</Style>
<corpo bgcolor = "#008080" text = "#000000">
<%
'Defina o endereço do servidor de correio
StrServer = sessão ("StrServer")
'Defina a conta
straccount = sessão ("straccount")
'Defina a senha
strpassword = sessão ("strpassword")
'Defina várias propriedades do componente
Set pop3 = createObject ("easymail.pop3.5")
Pop3.licenseKey = "AWA/S19I500R1AX30C0R3100"
POP3.MAILSERVER = STRSERVER
Pop3.Account = Straccount
Pop3.password = strpassword
POP3.PreferredBodyFormat = 1
pop3.Timeout = 120
x = pop3.Connect
Se x <> 0 então
Response.Write "<P align = Center> Erro de conexão:" + cstr (x) + "<br> <br> Entre em contato com o administrador"
POP3.Disconnect
Resposta.END
Final se
x = pop3.DownloadMessages (0)
Se x <> 0 então
Response.Write "Download Erro:" + cstr (x) + "<br> <br> Entre em contato com o administrador"
POP3.Disconnect
Resposta.END
Final se%>
<p> <br> </p>
<formul
<Center>
<tabela CellPacing = "0" CellPadding = "0" BorderColor = "#000080" bgcolor = "#fffff">
<tr> <td colspan = 6 align = "Center">
<%
'Processamento de paginação
se request.QueryString ("CurrentPage") = "" então
cp = 1
outro
cp = request.QueryString ("CurrentPage")
final se
'Obtenha o número total de e -mails
m_count = pop3.messages.count
Se m_count <= 10 então
pagenum = 1
sd = 1
ed = m_count
outro
pagenum = int (m_count/10) +1
Se clng (cp) <> pagenum então
lastpage = m_count mod 10
sd = (clng (cp) -1)*10+1
ed = clng (cp)*10
outro
sd = (clng (cp) -1)*10+1
ed = m_count
final se
final se
%>
Você tem <font color = "ff00ff"> <%= pop3.messages.count%> </font> E -mails. </td>
<%sessão ("msgCount") = pop3.messages.count%>
</tr>
<tr>
<td align = "Center"> número </td>
<td align = "Center"> de/Responder </td>
<td align = "Center"> tema </td>
<td align = "Center"> Data </td>
<td align = "Center"> tamanho </td>
<td align = "Center"> Selecione </td>
</tr>
<%para i = sd a ed%>
<tr>
<td align = "Center"> <%= i%> </td>
<%
fw = "Responder:"+substituir (pop3.messages.item (i) .subject, espaço (1), "_")
%>
<Td>
<%receptor = pop3.messages.item (i) .From%>
<%se pop3.messages.item (i) .Fromaddr = "" então%>
<a href = "">
<%mais
%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & sujeito = <%= fw%>', 'sendNew', ' largura = 600, altura = 480, barras de rolagem = sim ');>
<%final se%>
<%se TRIM (receptor) = "" então
Response.Write "Anonymous </a>"%>
<%else%>
<a href =#onclick = javascript: window.open ('sendmail1.asp? addr = <%= pop3.messages.item (i) .fromaddr%> & sujeito = <%= fw%>', 'sendNew', ' largura = 600, altura = 480, barras de rolagem = sim ');>
<font face = "宋体" size = "2">
<%= Pop3.messages.item (i) .From%> </font>
<%final se%>
</td>
<Td>
<%msgid = pop3.getMessageId (i)%>
<a href = "showbody1.asp? id = <%= msgid%>" target = "frmbottom">
<font face = "宋体" size = "2">
<%
Se TRIM (pop3.messages.item (i) .subject) = "" então
Response.Write "sem tópico"
outro
Response.Write POP3.MESSAGES.Item (i) .Subject
final se
%> </font>
</a> </td>
<td> <font face = "宋体" size = "2"> <%= cdate (mid (cstr (pop3.messages.iTem (i) .date), 6,11))%> </font> </ td>
<tdwidth = "60"> <font face = "宋体" size = "2"> <%= pop3.messages.item (i) .size%> </font> </td>
<Td> <input type = "Caixa de seleção" name = "c <%= i%>" value = "<%= i%>"> </td>
</tr>
<%a seguir
POP3.Disconnect
%>
</tabela>
</central>
<p align = "Center"> <input type = "button" name = "cmdel" value = "delete"> </p>
</morm>
<div align = "Center">
<tabela CellPacing = "0" CellPadding = "0" BorderColor = "#FF0080" BGCOLOR = "#FFFFF">
<tr> <td> páginas </td>
<%para i = 1 a pagenum%>
<td> <a href = "maillist1.asp? currentpage = <%= i%>" Target = frmtop> <%= i%> </a> </td>
<%a seguir%>
</tr> </ table> </div>
</body>
</html>