<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      發送帶附件的HTML格式郵件例程
                
                  發表時間：2024-02-22             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]發送帶附件的HTML格式郵件例程　　如何通過 ASP 來發送帶附件、格式為 HTML 的郵件？下面提供了一個例程.<%@ LANGUAGE=VBScript%><%Response.Buffer = TrueResponse.Expires = 0'創建對象實例Set m...
      發送帶附件的HTML格式郵件例程


      　　如何通過 ASP 來發送帶附件、格式為 HTML 的郵件？下面提供了一個例程.

      <%@ LANGUAGE=VBScript%>
      <%
      Response.Buffer = True
      Response.Expires = 0

      '創建對象實例
      Set myMail = Server.CreateObject("CDONTS.NewMail")

      '以下是將要發送的內容
      HTML = "<html>"
      HTML = HTML & "<head>"
      HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
      HTML = HTML & "</head>"
      HTML = HTML & "<body bgcolor=""FFFFFF"">"
      HTML = HTML & "<p><font size=7>"
      HTML = HTML & "This is a test mail in html<br>"
      HTML = HTML & "Mail content here ...</font></p>"
      HTML = HTML & "</body>"
      HTML = HTML & "</html>"

      '發件人
      myMail.From = "somebody@somewhere.com"

      '收件人
      myMail.To = "nobody@somewhere.com"

      '密件抄送
      myMail.Bcc = "nobody@somewhere.com"

      '抄送
      myMail.Cc = "nobody@somewhere.com"

      '郵件的重要性
      ' 0 重要性低  
      ' 1 重要性一般（默認） 
      ' 2 重要性高  
      myMail.Importance = 2

      '郵件主題
      myMail.Subject = "Test mail in HTML"

      '附件（注意 e:\test.txt 指的是服務器上的位置，如果使用相對路徑，必須用 Server.MapPath 映射為真實路徑）
      myMail.AttachFile "e:\test.txt"

      'NewMail 對象的文字格式
      '0 表示該 Body 可包含超文本置標語言 (HTML)
      '1 表示該 Body 只用于純文本（默認值）
      myMail.BodyFormat = 0

      'NewMail 對象設置編碼
      '0 表示將采用 MIME 格式
      '1 表示將采用連續的純文本（默認值）
      myMail.MailFormat = 0

      '給郵件對象的文本賦值
      myMail.Body = HTML

      '將郵件發出
      myMail.Send

      '銷毀對象實例，釋放內存
      Set myMail = Nothing
      %>





              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清