在ASP中用EasyMailObject组件处理Exchange邮件源代码 -pc6资讯

您的位置：首页 → 精文荟萃 → 软件资讯 → 在ASP中用EasyMailObject组件处理Exchange邮件源代码

在ASP中用EasyMailObject组件处理Exchange邮件源代码 时间：2004/10/7 19:09:00来源：本站整理作者：蓝点我要评论(0)

　　　　　　　　　　　　

　　　　　　　　　　　　读取邮件主题和大小(maillist1.asp)
<%@ LANGUAGE="VBSCRIPT" %>
<%
'************************************************

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

'************************************************
%>

<%
if session("straccount")="" or session("strpassword")="" then
Response.write("错误，尚未登录

你尚未登录，请先退出登录!

")
Response.Write ("

")
Response.End
end if
%>

收邮件

<%
'定义邮件服务器地址
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 "

连接错误: " + CStr(x) + "

请和管理员联系"
POP3.Disconnect
Response.End
End If

x = POP3.DownloadMessages(0)
If x <> 0 Then
Response.Write "下载错误: " + CStr(x) +"

请和管理员联系"
POP3.Disconnect
Response.End
End If%>

<%session("msgcount")=POP3.Messages.Count%>

<%for i= sd to ed%>

<%
fw="回复:"+replace(POP3.messages.item(i).subject,space(1),"_")
%>

<%next
POP3.Disconnect

%>

<% '分页处理 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 %> 你有<%=POP3.Messages.Count%>封邮件。
号	来自/回复	主题	日期	大小	选择
<%=i%>	<%receiver=POP3.Messages.item(i).from%> <%if POP3.Messages.item(i).fromaddr="" then%> <%else %> &subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');> <%end if%> <%if trim(receiver)="" then response.write "匿名"%> <%else%> &subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');> <%=POP3.Messages.item(i).From%> <%end if%>	<%msgid=POP3.GetMessageID(i)%> <% if trim(POP3.messages.item(i).Subject)="" then response.write "无主题" else response.write POP3.messages.item(i).Subject end if %>	<%=cdate(mid(cstr(POP3.messages.item(i).date),6,11))%>	<%=POP3.messages.item(i).size%>

<%for i=1 to pagenum%>

<%next%>

页数

<%=i%>

文章评论

查看所有0条评论>>