Use el componente EasyMailObject para manejar el código fuente de correo de Exchange en ASP --- Lea el tema y el tamaño del correo (Maillist1.asp)
< %@ Idioma = "vBscript" %>
<%
'********************************************************** *****
'Este archivo enumera todos los correos electrónicos y establece la ventana de visualización de contenido de correo como una ventana en blanco
'Autor: awayeah
'Correo electrónico: [email protected]
'********************************************************** *****
%>
<Script Language = VBScript>
parent.frmbottom.location.href = "blank.htm"
sub cmdel_onclick ()
'Eliminar el correo electrónico
frmail.submit
final
</script>
<%
if session ("straccount") = "" o session ("strpassword") = "" entonces
Response.Write ("<html> <title> Error, aún no ha iniciado sesión </title> <body> <p align = Center> <br> <br> Todavía no ha iniciado sesión, ¡cierre sesión primero! <Br > <br> ")
Response.Write ("<a href = 'login.asp' target = '_ top'> <img src = 'http: //www.newap.net/article/asp/example/2005/logout.jpg' border = 0 >/a> </p> </body> </html> ")
Respuesta.
final si
%>
<html>
<Evista>
<title> recibir correo electrónico </title>
</ablo)
<Estilo>
<!-
A {Decoración de texto: ninguno}
->
</style>
<Body bgcolor = "#008080" text = "#000000">
<%
'Defina la dirección del servidor de correo
strserver = session ("strserver")
'Defina la cuenta
straccount = session ("straccount")
'Defina contraseña
strpassword = session ("strpassword")
'Establezca varias propiedades del componente
Establecer pop3 = createObject ("Easymail.pop3.5")
Pop3.licensekey = "AWA/S19I500R1AX30C0R3100"
Pop3.mailserver = strserver
Pop3.Count = Straccount
Pop3.password = strassword
pop3.preferedBodyFormat = 1
Pop3.Timeout = 120
x = pop3.connect
Si x <> 0 entonces
Response.write "<P align = Center> Error de conexión:" + Cstr (x) + "<br> <br> Póngase en contacto con el administrador"
Pop3. Disconectar
Respuesta.
Final si
x = pop3.downloadMessages (0)
Si x <> 0 entonces
Response.Write "Descargar error:" + CSTR (x) + "<br> <br> Póngase en contacto con el administrador"
Pop3. Disconectar
Respuesta.
FIN IF%>
<p> <br> </p>
<form de nombre = "frmail" action = "mail_prc.asp" método = "post">
<centro>
<tabla cellPacing = "0" cellPadding = "0" borderColor = "#000080" bgcolor = "#fffff">
<tr> <td colspan = 6 align = "centro">
<%
'Procesamiento de paginación
if request.queryString ("currentPage") = "" entonces
CP = 1
demás
cp = request.queryString ("CurrentPage")
final si
'Obtenga el número total de correos electrónicos
m_count = pop3.messages.count
Si m_count <= 10 entonces
Pageno = 1
SD = 1
ed = m_count
demás
pagenum = int (m_count/10) +1
Si Clng (CP) <> pagenum entonces
LastPage = M_Count Mod 10
SD = (CLNG (CP) -1)*10+1
ed = clng (cp)*10
demás
SD = (CLNG (CP) -1)*10+1
ed = m_count
final si
final si
%>
Tienes <font color = "ff00ff"> <%= pop3.messages.count%> </font> correos electrónicos. </td>
<%session ("msgcount") = pop3.messages.count%>
</tr>
<tr>
<td align = "centro"> número </td>
<td align = "centro"> de/respuesta </td>
<td align = "centro"> tema </td>
<td align = "centro"> date </td>
<td align = "centro"> tamaño </td>
<td align = "centro"> select </td>
</tr>
<%para i = sd a ed%>
<tr>
<td align = "centro"> <%= i%> </td>
<%
fw = "Respuesta:"+reemplazar (pop3.messages.item (i) .subject, espacio (1), "_")
%>
<TD>
<%receptor = pop3.messages.Item (i) .From%>
<%if pop3.messages.Item (i) .Fromaddr = "" Entonces%>
<a href = "">
<%más
%>
<a href =#onClick = javaScript: window.open ('sendmail1.asp? adr = <%= pop3.messages.item (i) .Fromaddr%> & temas = <%= fw%>', 'sendnew', ',' Ancho = 600, altura = 480, Scrollbars = Yes ');>
<%final si%>
<%if trid (receptor) = "" entonces
Response.write "Anónimo </a>"%>
<%else%>
<a href =#onClick = javaScript: window.open ('sendmail1.asp? adr = <%= pop3.messages.item (i) .Fromaddr%> & temas = <%= fw%>', 'sendnew', ',' Ancho = 600, altura = 480, Scrollbars = Yes ');>
<font face = "宋体" size = "2">
<%= Pop3.messages.Item (i) .From%> </font>
<%final si%>
</td>
<TD>
<%msgid = pop3.getMessageId (i)%>
<a href = "showBody1.asp? id = <%= msgid%>" target = "frmbottom">
<font face = "宋体" size = "2">
<%
Si TRIM (pop3.messages.Item (i) .subject) = "" Entonces
Respuesta. Escribe "No hay tema"
demás
respuesta
final si
%> </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 = "checkbox" name = "c <%= i%>" value = "<%= i%>"> </td>
</tr>
<%Siguiente
Pop3. Disconectar
%>
</table>
</Center>
<P align = "Center"> <input type = "button" name = "cmdel" value = "delete"> </p>
</form>
<div align = "centro">
<TABLE CELLPACING = "0" CellPadding = "0" borderColor = "#FF0080" bgcolor = "#fffff">
<tr> <td> páginas </td>
<%para i = 1 a pageno%>
<TD> <a href = "maillist1.asp? CurrentPage = <%= i%>" Target = FRMTOP> <%= i%> </a> </td>
<%siguiente%>
</tr> </table> </div>
</body>
</html>