<address id="997j9"></address>

                    首頁 > 開發 > 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>

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

                    圖片精選

                    久久久国产精品午夜一区 欧美最爽乱婬视频免费看 日产精品99久久久久久 精品国产污污免费网站入口 亚洲碰碰人人Av熟女天堂

                                    <address id="997j9"></address>

                                      <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <蜘蛛词>| <文本链> <文本链> <文本链> <文本链> <文本链> <文本链>