主頁 > 知識庫 > ASP用JMail、CDO發(fā)送郵件

ASP用JMail、CDO發(fā)送郵件

熱門標(biāo)簽:保定電銷機(jī)器人軟件 自動(dòng)外呼系統(tǒng)怎么防止封卡 成都銷售外呼系統(tǒng)公司 土地證宗地圖標(biāo)注符號 電話機(jī)器人案例 vue 地圖標(biāo)注拖拽 電話機(jī)器人銷售公司嗎 客服外呼系統(tǒng)呼叫中心 鎮(zhèn)江云外呼系統(tǒng)怎么樣
前一段時(shí)間有發(fā)過一個(gè)簡單的JMAIL郵件發(fā)郵件的代碼,今天就把這個(gè)代碼做一個(gè)具體的注解,并增加了另外兩個(gè)格式的代碼,并舉幾個(gè)簡單的例子:
首先是jmail.smtpmail的核心代碼:
 程序代碼

%
  Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '創(chuàng)建一個(gè)JMAIL對象
  jmail.silent = true   'JMAIL不會拋出例外錯(cuò)誤,返回的值為FALSE跟TRUE
  jmail.logging = true   '啟用使用日志
  jmail.Charset = "GB2312"  '郵件文字的代碼為簡體中文
  jmail.ContentType = "text/html"  '郵件的格式為HTML的
  jmail.ServerAddress = "Server Address"   '發(fā)送郵件的服務(wù)器
  jmail.AddRecipient Email    '郵件的收件人
  jmail.SenderName = "SenderName"    '郵件發(fā)送者的姓名
  jmail.Sender = "Email Address"    '郵件發(fā)送者的郵件地址
  jmail.Priority = 1   '郵件的緊急程序,1 為最快,5 為最慢, 3 為默認(rèn)值
  jmail.Subject = "Mail Subject"  '郵件的標(biāo)題
  jmail.Body = "Mail Body"   '郵件的內(nèi)容
  jmail.AddRecipientBCC Email   '密件收件人的地址
  jmail.AddRecipientCC Email   '郵件抄送者的地址
  jmail.Execute()   '執(zhí)行郵件發(fā)送
  jmail.Close    '關(guān)閉郵件對象
%>


現(xiàn)在還有很多程序是使用這種方式來發(fā)信,這種方式有一個(gè)很大的缺陷,那就是發(fā)信是使用服務(wù)器本地smtp服務(wù)發(fā)出的,并沒有通過任何smtp身份驗(yàn)證,
如果服務(wù)器設(shè)置了需要使用身份驗(yàn)證,則發(fā)信會失敗?,F(xiàn)在因?yàn)榉蠢]件的需要,越來越多的服務(wù)器開始注重這方面的設(shè)置問題,如果你使用此種方法發(fā)信突然出現(xiàn)不正常,
則可能是服務(wù)器限制了匿名發(fā)信,上面的代碼則就不會正常運(yùn)作了。

這種方法我們不建議使用,但是現(xiàn)在還有很多asp程序使用此種方法,可能還是可以正常運(yùn)作的,但是很難保證以后會一直正常,并且某些郵件服務(wù)器會拒收這種方法發(fā)出的信件,所以如果有可能的話,盡量不要使用這種方式。


w3 Jmail4.3組件重新設(shè)計(jì)了其內(nèi)部結(jié)構(gòu)——使用Message對象代替原來的單一對象Jmail.smtpmail發(fā)送郵件,有些方法需要身份驗(yàn)證的(如163、yahoo等),可以用下面的方法解決:
 程序代碼

%
     Set jmail = Server.CreateObject("JMAIL.Message")   '建立發(fā)送郵件的對象
     jmail.silent = true    '屏蔽例外錯(cuò)誤,返回FALSE跟TRUE兩值j
     mail.logging = true   '啟用郵件日志
     jmail.Charset = "GB2312"     '郵件的文字編碼為國標(biāo)
     jmail.ContentType = "text/html"    '郵件的格式為HTML格式
     jmail.AddRecipient Email     '郵件收件人的地址
     jmail.From = "Email From for Sender"   '發(fā)件人的E-MAIL地址
     jmail.MailServerUserName = "UserName of Email"     '登錄郵件服務(wù)器所需的用戶名
     jmail.MailServerPassword = "Password of Email"     '登錄郵件服務(wù)器所需的密碼
     jmail.Subject = "Mail Subject"    '郵件的標(biāo)題 
     jmail.Body = "Mail Body"      '郵件的內(nèi)容
     jmail.Prority = 1      '郵件的緊急程序,1 為最快,5 為最慢, 3 為默認(rèn)值
     jmail.Send("Server Address")     '執(zhí)行郵件發(fā)送(通過郵件服務(wù)器地址)
     jmail.Close()   '關(guān)閉對象
%>


使用這段代碼發(fā)信,是當(dāng)前最為穩(wěn)定,也最為適用的發(fā)信方法,我們推薦使用Jmail發(fā)信的客戶,使用此種方法來發(fā)信。


再講一下 微軟自帶的CDONTS組件的發(fā)信的方法:
 程序代碼

%
    Set cdomail = Server.CreateObject("CDONTS.NewMail")  '建立郵件對象
    cdomail.Subject = "Mail Subject"   '郵件標(biāo)題
    cdomail.From = "Sender's Mail"   '發(fā)件人的地址
    cdomail.To = "Email will from"   '收件人的地址
    cdomail.Body = "Mail Body"   '郵件的內(nèi)容
    cdomail.Send    '執(zhí)行發(fā)送
%>

我們寫程序,一般情況下都是說要代碼模塊化,這樣方便維護(hù),同時(shí)也方便移植。因此,我在這里將這個(gè)發(fā)郵件的寫成一個(gè)子程,在調(diào)用的時(shí)候可以直接調(diào)用(當(dāng)然,如果你高興寫成函數(shù)的話也是可以的,這個(gè)主要是看個(gè)人興趣):
推薦
復(fù)制代碼 代碼如下:
%
  '參數(shù)說明
  'Subject     : 郵件標(biāo)題
  'MailAddress : 發(fā)件服務(wù)器的地址,如smtp.163.com
  'Email       : 收件人郵件地址
  'Sender      : 發(fā)件人姓名
  'Content     : 郵件內(nèi)容
  'Fromer      : 發(fā)件人的郵件地址

  Sub SendAction(subject, mailaddress, email, sender, content, fromer) 
      Set jmail = Server.CreateObject("JMAIL.SMTPMail")   '創(chuàng)建一個(gè)JMAIL對象
      jmail.silent = true   'JMAIL不會拋出例外錯(cuò)誤,返回的值為FALSE跟TRUE
      jmail.logging = true   '啟用使用日志
      jmail.Charset = "GB2312"  '郵件文字的代碼為簡體中文
      jmail.ContentType = "text/html"  '郵件的格式為HTML的
      jmail.ServerAddress = mailaddress   '發(fā)送郵件的服務(wù)器
      jmail.AddRecipient Email    '郵件的收件人
      jmail.SenderName = sender   '郵件發(fā)送者的姓名
      jmail.Sender = fromer    '郵件發(fā)送者的郵件地址
      jmail.Priority = 1   '郵件的緊急程序,1 為最快,5 為最慢, 3 為默認(rèn)值
      jmail.Subject = subject  '郵件的標(biāo)題
      jmail.Body = content   '郵件的內(nèi)容
      '由于沒有用到密抄跟抄送,這里屏蔽掉這兩句,如果您有需要的話,可以在這里恢復(fù)
      'jmail.AddRecipientBCC Email   '密件收件人的地址
      'jmail.AddRecipientCC Email   '郵件抄送者的地址
      jmail.Execute()   '執(zhí)行郵件發(fā)送
      jmail.Close    '關(guān)閉郵件對象
  End Sub

  '調(diào)用此Sub的例子
  Dim strSubject,strEmail,strMailAdress,strSender,strContent,strFromer
  strSubject     = "這是一封用JMAIL發(fā)送的測試郵件"
  strContent     = "JMail組件發(fā)送測試成功!"
  strEmail       = "runbing@eyou.com"
  strFromer      = "runbing@eyou.com"
  strMailAddress = "mail.ubbcn.com"

  Call SendAction (strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)

%>
您可能感興趣的文章:
  • asp+JMAIL實(shí)現(xiàn)發(fā)送郵件
  • Jmail發(fā)送郵件與帶附件亂碼解決辦法分享
  • .net jMail郵件發(fā)送(含抄送、密送、多發(fā)、日志記錄)實(shí)例代碼
  • Jmail 圖文安裝教程 asp在線發(fā)送郵件組件
  • asp jmail發(fā)郵件 詳細(xì)解析
  • Jmail組件發(fā)送郵件之絕對能用的函數(shù)
  • Jmail發(fā)郵件的例子
  • Jmail發(fā)送郵件工具類分享

標(biāo)簽:公主嶺 內(nèi)江 重慶 天津 懷化 臺灣 麗江 成都

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP用JMail、CDO發(fā)送郵件》,本文關(guān)鍵詞  ASP,用,JMail,CDO,發(fā)送,郵件,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP用JMail、CDO發(fā)送郵件》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP用JMail、CDO發(fā)送郵件的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章