• <optgroup id="qksf7"><xmp id="qksf7"><optgroup id="qksf7"></optgroup>
      
      
      <rp id="qksf7"><acronym id="qksf7"></acronym></rp><tbody id="qksf7"><track id="qksf7"><dl id="qksf7"></dl></track></tbody>
      首頁 > 開發 > 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>

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

      圖片精選

      一级特黄大片欧美久久久久_一本一道久久综合狠狠老_JLZZ日本人年轻护士_欧美男男作爱VIDEOS可播放