用EasyMailObject组件处理Exchange邮件源代码(1)

Kaiy_颜

Kaiy_颜

2016-01-29 17:40

用EasyMailObject组件处理Exchange邮件源代码(1),用EasyMailObject组件处理Exchange邮件源代码(1)

  在ASP中用EasyMailObject组件处理Exchange邮件源代码---读取邮件主题和大小(maillist1.asp)


<%@ LANGUAGE="VBSCRIPT" %
<%
'************************************************

'这个文件列出所有邮件,并把邮件内容显示窗口置为空白窗口
'作者:awayeah
'邮箱:awayeah@163.net

'************************************************
%
<script language=vbscript
parent.frmbottom.location.href="blank.htm"
sub cmdel_onClick()
'删除邮件
frmail.submit
end sub
<%
if session("straccount")="" or session("strpassword")="" then

end if
%
<html
<head
<title收邮件<STYLE
<!--
A{text-decoration:none}
--
<body bgcolor="#008080" text="#000000"
<%
'定义邮件服务器地址
strserver=session("strserver")
'定义帐号
strAccount=session("straccount")
'定义密码
strPassword=session("strpassword")
'设置组件的各种属性
  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
   If x < 0 Then
      Response.Write "<p align=center连接错误: " + CStr(x) + "<br<br请和管理员联系"
      POP3.Disconnect
      Response.End
   End If

   x = POP3.DownloadMessages(0)
   If x < 0 Then
      Response.Write "下载错误: " + CStr(x) +"<br<br请和管理员联系"
      POP3.Disconnect
      Response.End
   End If%
<p<br<form name="frmail" action="mail_prc.asp" method="POST"
<center
<table border="1" width="580" cellspacing="0" cellpadding="0" bordercolor="#000080" bgcolor="#FFFFFF"
<tr<td colspan=6 align="center"
<%
'分页处理
if Request.QueryString("currentpage")="" then
cp=1
else
cp=Request.QueryString("currentpage")
end if
'得到邮件总数
m_count=POP3.Messages.Count
if m_count<=10 then
pagenum=1
sd=1
ed=m_count
else
pagenum=int(m_count/10)+1
if clng(cp)<pagenum then
lastpage=m_count mod 10
sd=(clng(cp)-1)*10+1
ed=clng(cp)*10
else
sd=(clng(cp)-1)*10+1
ed=m_count
end if
end if
%
你有<font color="ff00ff"<%=POP3.Messages.Count%<%session("msgcount")=POP3.Messages.Count%
<tr
<td align="center" width="20"号<td align="center" width="120"来自/回复<td align="center" width="270"主题<td align="center" width="90"日期<td align="c

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/asp/)
展开更多 50%)
分享

猜你喜欢

用EasyMailObject组件处理Exchange邮件源代码(1)

ASP
用EasyMailObject组件处理Exchange邮件源代码(1)

用EasyMailObject组件处理Exchange邮件源代码(6)

ASP
用EasyMailObject组件处理Exchange邮件源代码(6)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用EasyMailObject组件处理Exchange邮件源代码(2)

ASP
用EasyMailObject组件处理Exchange邮件源代码(2)

用EasyMailObject组件处理Exchange邮件源代码(4)

ASP
用EasyMailObject组件处理Exchange邮件源代码(4)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用EasyMailObject组件处理Exchange邮件源代码(5)

ASP
用EasyMailObject组件处理Exchange邮件源代码(5)

用EasyMailObject组件处理Exchange邮件源代码(3)

ASP
用EasyMailObject组件处理Exchange邮件源代码(3)

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

将你的网站设置为客户的信任站点--VB方案

将你的网站设置为客户的信任站点--VB方案

Linux系统下设备驱动的安全端口分配

Linux系统下设备驱动的安全端口分配
下拉加载更多内容 ↓