<em id="hanht"></em>

    <dd id="hanht"></dd>

    <em id="hanht"><acronym id="hanht"></acronym></em>
    
    <button id="hanht"></button>
    <rp id="hanht"><object id="hanht"><blockquote id="hanht"></blockquote></object></rp><em id="hanht"></em>

    首頁 > 開發 > Asp > 正文

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

    2018-10-16 21:07:02
    字體:
    來源:轉載
    供稿:網友
    在ASP中用EasyMailObject組件處理Exchange郵件源代碼---刪除郵件時調用的文件(mail_prc.asp)

    <%@ Language=VBscript %>
    <%
    '*************************************

    '這個文件是刪除郵件時調用的
    '作者:awayeah
    '郵箱:awayeah@163.net

    '*************************************

    dim cc,cc1,sep,dd
    '取得郵件總數
    msgcount = session("msgcount")
    sep=","

    for i=1 to msgcount
    dd="c"+cstr(i)
    msgid=cstr(Request.Form (dd))
    if msgid="" then
    cc1=cc1+msgid
    else
    cc1=cc1+msgid+sep
    end if
    next

    if len(cc1)=0 then
    Response.Redirect "maillist1.asp"
    end if
    cc1=left(cc1,len(cc1)-1)
    dim arr
    arr=split(cc1,",")
       Set POP3 = CreateObject("EasyMail.POP3.5")
       pop3.account=session("straccount")
       pop3.password=session("strpassword")
       POP3.MailServer = "192.9.200.89"
       POP3.LicenseKey = "awa/S19I500R1AX30C0R3100"

       x = POP3.Connect()
    for i=0 to ubound(arr)
    arr(i)=clng(arr(i))
       y = POP3.DownloadHeaders

       '刪除郵件

       x = POP3.DeleteSingleMessage(arr(i))

       If x <> 0 Then
    '      Response.Write "<p align=center><br><br>刪除郵件發生錯誤( " + CStr(x) + ").請與管理員聯系.<br><br>"
    '      Response.Write "<a href='maillist1.asp'>返回</a></p>"
          POP3.Disconnect
          Response.End
       Else
          'Response.Write "Message deleted successfully."
          'Response.Write ""
          'POP3.Disconnect
       End If
    next
    POP3.Disconnect
    Response.Redirect "maillist1.asp"
    %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD>
    <BODY>
    </body>
    </html>
    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表

    圖片精選

    一级特黄大片欧美久久久久_一本一道久久综合狠狠老_JLZZ日本人年轻护士_欧美男男作爱VIDEOS可播放
      <em id="hanht"></em>

      <dd id="hanht"></dd>

      <em id="hanht"><acronym id="hanht"></acronym></em>
      
      <button id="hanht"></button>
      <rp id="hanht"><object id="hanht"><blockquote id="hanht"></blockquote></object></rp><em id="hanht"></em>