客戶支持
  首 頁 域名注冊  虛拟主機  營銷通  網站推廣  網站建設  企業郵局  優惠套餐  聯系我(wǒ)們  彙款方式  
網站首頁
客戶支持首頁
熱門文章排行
更多... 
 
熱門問題列表
首頁 -> 客戶支持
asp jmail 發郵件的例子

查看次數:1909820   更新時間:2014/6/27    

        爲了防止某些用戶利用系統自帶的smtp服務器來發垃圾郵件導緻服務器性能嚴重下(xià)降而影響其它用戶網站的正常訪問,故我(wǒ)司禁用了系統自帶的smtp服務器,也就是說 CDOTS.NewMail 組件無法使用,取而代之我(wǒ)司的服務器安裝了Jmail4.0,用戶可用它來發郵件,此組件的具體(tǐ)使用方法請查閱相關文檔說明。

以下(xià)是用 asp 寫的用JMAIL組件發郵件的例子:

<%
if request("SendIt") = "true" then
 on error resume next
 set msg = Server.CreateOBject("JMail.Message")
 '設置郵件的發送者,由于一(yī)般郵件服務器的安全設置,這個發件人一(yī)般都必須是真實存在的
 msg.Logging = true
 msg.From = Request("from")
 msg.FromName = "某約翰"
 '收件人
 msg.AddRecipient  Request("to")
 'addRecipient方法可以幫助你在必要的時候添加更多的收信人,你也可以爲每一(yī)個收信人設置不同的名字: 
  '現在,我(wǒ)們可以加入郵件的主題了。
 msg.Subject = Request("subject")
 '然後是正文。下(xià)面的例子也告訴你如何在正文中(zhōng)換行。
 msg.Body = Request("body")
 '也可以使用appendText方法來創建郵件正文,這個方法常常用來爲郵件正文追加更多的内容。
 'msg.appendText "一(yī)些文字。"
 'msg.appendText "你想添加的更多的文字。"
 '郵件創建好了,我(wǒ)們來發送它。在這裏需要輸入一(yī)個有效的發信服務器地址。
 'Response.write Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server")
 msg.MailServerUserName = Request("smtp_user")
    msg.MailServerPassword = Request("smtp_pwd")
 'msg.Send( Request("smtp_user") & ":" & Request("smtp_pwd") & "@" & Request("smtp_server"))
 msg.Send(Request("smtp_server"))
 Response.Write( msg.Log )
 if err.number<>0 then
    response.write "郵件發送失敗" & err.description
 else
    response.write "郵件已經發到" & Request("to")
 end if
else
%>
    <form action='' method='post'>
   發件人:<input name='from'><br>
   收件人:<input name='to'><br>
   主題:<input name='subject' size='30'><br>
   内容:<TEXTAREA NAME="body" ROWS="10" COLS="30"></TEXTAREA><br>
      SMTP服務器地址:<input name='smtp_server'><br>
   SMTP服務器登錄用戶:<input name='smtp_user'><br>
   SMTP服務器登錄密碼:<input name='smtp_pwd'><br>
   <input type='submit' value='發送'>
      <input type='hidden' name='SendIt' value='true'>
 </form>
<%
end if
%>

[返 回]
上海陽桃網絡科技有限公司 vip.bangweb.cn (百川網絡)