<noframes id="tfbvr">
<listing id="tfbvr"></listing>

        <track id="tfbvr"></track>

          <th id="tfbvr"></th>

            <th id="tfbvr"></th>

              <form id="tfbvr"></form>

                <form id="tfbvr"><thead id="tfbvr"><menuitem id="tfbvr"></menuitem></thead></form>

                首頁 > 開發 > Asp > 正文

                用EasyMailObject組件處理Exchange郵件源代碼(1)

                2018-10-16 21:07:03
                字體:
                來源:轉載
                供稿:網友
                在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
                </script>
                <%
                if session("straccount")="" or session("strpassword")="" then
                Response.write("<html><title>錯誤,尚未登錄</title><body><p align=center><br><br>你尚未登錄,請先退出登錄!<br><br>")
                Response.Write ("<a href='login.asp' target='_top'><img src='http://www.newasp.net/Article/asp/example/2005/logout.jpg' border=0></a></p></body></html>")
                Response.End
                end if
                %>
                <html>
                <head>
                <title>收郵件</title>
                </head>
                <STYLE>
                <!--
                A{text-decoration:none}
                -->
                </STYLE>
                <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></p>
                <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%></font>封郵件。</td>
                <%session("msgcount")=POP3.Messages.Count%>
                </tr>
                <tr>
                <td align="center" width="20">號</td>
                <td align="center" width="120">來自/回復</td>
                <td align="center" width="270">主題</td>
                <td align="center" width="90">日期</td>
                <td align="center" width="60">大小</td>
                <td align="center" width="20">選擇</td>
                </tr>
                    <%for i= sd to ed%>

                <tr>
                <td align="center" width="20"><%=i%></td>
                <%
                fw="回復:"+replace(POP3.messages.item(i).subject,space(1),"_")
                %>
                <td width="100">
                <%receiver=POP3.Messages.item(i).from%>
                <%if POP3.Messages.item(i).fromaddr="" then%>
                <a href="">
                <%else
                %>
                <a href=#  onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');>
                <%end if%>
                <%if trim(receiver)="" then
                response.write "匿 名</a>"%>
                <%else%>
                <a href=#  onClick=javascript:window.open('sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>','sendnew','width=600,height=480,scrollbars=yes');>
                <font face="宋體" size="2">
                <%=POP3.Messages.item(i).From%></font>
                <%end if%>
                </td>
                <td width="270">

                <%msgid=POP3.GetMessageID(i)%>
                <a href="showbody1.asp?id=<%=msgid%>" target="frmbottom">
                <font face="宋體" size="2">
                <%
                if trim(POP3.messages.item(i).Subject)="" then
                response.write "無主題"
                else
                response.write POP3.messages.item(i).Subject
                end if
                %></font>
                </a></td>
                <td width="90"><font face="宋體" size="2"><%=cdate(mid(cstr(POP3.messages.item(i).date),6,11))%></font></td>

                <td  width="60"><font face="宋體" size="2"><%=POP3.messages.item(i).size%></font></td>
                <td><input type="checkbox" name="c<%=i%>" value="<%=i%>"></td>
                </tr>
                <%next
                   POP3.Disconnect

                %>
                </table>
                </center>
                <p align="center"><input type="button" name="cmdel" value="刪除"></p>
                </form>
                <div align="center">
                <table border="1" cellspacing="0" cellpadding="0" bordercolor="#ff0080" bgcolor="#FFFFFF">
                <tr><td>頁數</td>
                <%for i=1 to pagenum%>
                <td><a href="maillist1.asp?currentpage=<%=i%>" target=frmtop> <%=i%> </a></td>
                <%next%>
                </tr></table></div>

                </body>
                </html>

                發表評論 共有條評論
                用戶名: 密碼:
                驗證碼: 匿名發表

                圖片精選

                <noframes id="tfbvr">
                <listing id="tfbvr"></listing>

                      <track id="tfbvr"></track>

                        <th id="tfbvr"></th>

                          <th id="tfbvr"></th>

                            <form id="tfbvr"></form>

                              <form id="tfbvr"><thead id="tfbvr"><menuitem id="tfbvr"></menuitem></thead></form>

                              亚洲国产综合无码一区二区BT下... 9420高清完整版在线观看免费 国产CHINESEHDXXXX... 黄 色 免 费 成 人 A片 欧美性受XXXX黑人XYX性爽