ASP實例:實現郵件發送普通附件和嵌入附件_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:ASP開發10條經驗總結
      歷時半年,我獨自一人完成了一個局級單位的管理信息系統,共發布BETA版29次,正式版本3次。asp oracle環境,285個ASP文件,功能涉及數據錄入、修改、模糊查詢、自動統計、數據分析和報表,這個

      網上很多關于JMail發送郵件的例子都沒有寫如何發附件,或者沒有寫清如何發內嵌的附件(比如把附件圖片嵌入到HTML信件里面)

      其實最關鍵的就是這句要注釋掉

      'JMail.ContentType = "text/html"

      (為什么要發內嵌的附件圖片?因為如果是img src=網上的地址,在outlook等客戶端內則顯示是難看的“X”,需要手動下載圖片)

      本例子參考了Dimac(w3JMail官方)的樣例,文件地址:

      C:\Program Files\Dimac\w3JMail4\Examples\ASP\htmlimage.asp

      (安裝了Jmail的都有)

      例子代碼:

      以下為引用的內容:

      <%
      Set JMail = Server.CreateObject("JMail.Message")
      '是否將信頭編碼成iso-8859-1字符集. 缺省是True
      JMail.ISOEncodeHeaders = True
      '如果JMail.silent設置為true,ErrorCode包含的是錯誤代碼
      JMail.Silent = True
      '設置標題和內容編碼,如果標題有中文,必須設定編碼為gb2312
      JMail.Charset = "gb2312"
      'JMail.ContentType = "text/html" '如果發內嵌附件一定要注釋掉這行,重要!
      JMail.From = "web@mail.skyhe.com" ' 發送者地址
      JMail.FromName = "Skyhe System" ' 發送者姓名
      JMail.MailServerUserName = "web" ' 身份驗證的用戶名
      JMail.MailServerPassword = "123456" ' 身份驗證的密碼
      '加入新的收件人
      JMail.AddRecipient "kittow@mail.skyhe.com", "Mr.Example"
      'JMail.AddRecipientBCC Email '密件收件人的地址
      'JMail.AddRecipientCC Email '郵件抄送者的地址
      JMail.Subject = "圖片測試!!!"
      JMail.Body = "A nice picture if you can read HTML-mail."

      '增加一個普通附件
      JMail.AddAttachment(Server.MapPath("images/email.gif"))
      '增加一個嵌入式附件
      ' The return value of AddAttachment is used as a
      ' reference to the image in the HTMLBody.
      'contentId = JMail.AddAttachment(Server.MapPath("images/email.gif"))
      Dim contentId
      contentId = JMail.AddAttachment("E:\images\email.gif")

      '只有HTML格式支持嵌入圖片附件,我們采用HTML格式的郵件內容
      ' As only HTML formatted emails can contain inline images
      ' we use HTMLBody and appendHTML
      JMail.HTMLBody = "<html><body><font color=""red"">Hi, here is a nice picture:</font><br>"
      JMail.appendHTML "<img src=""cid:" & contentId & """>"
      JMail.appendHTML "<br><br> good one huh?</body></html>"

      '如果對方信箱不支持HTML格式郵件,我們仍需要給他一個友善的提示
      ' But as not all mailreaders are capable of showing HTML emails
      ' we will also add a standard text body
      JMail.Body = "Too bad you can't read HTML-mail."
      JMail.appendText " There would have been a nice picture for you"

      JMail.Send( "mail.skyhe.com" )
      JMail.Close()
      Set JMail = Nothing
      %>

      分享:ASP、PHP和JSP的比較
      在網絡發展日新月異的今天,人們不斷的創新,包括網頁,網站的發展.原來的那些HTML超文本語言已經不能完全滿足我們的做網頁的需要了.我們需要的是一個動感性,交互性都很強的網站.這樣才能和廣大的

      來源:模板無憂//所屬分類:ASP教程/更新時間:2008-08-22
      相關ASP教程