asp如何使用Jmail組件發送信息到指定郵箱_ASP教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦:一個簡單好用的UBB編輯器(含代碼)現在的在線編輯器有很多,且功能強大,比如 eWebEditor,但也占用空間大,一些簡單的 論壇、留言板并不還需要太強大的功能, HtmlEditor就是這樣一個編輯器,簡單漂亮,調用也方便,推薦大家使用。 調用時代碼, 提交頁: form method=POST action=Post.a
<% a=request("姓名") aa=request("電話") aaa=request("mail") aaaa=request("yb") aaaaa=request("dz") b=request("bt") bb=request("內容") '上面是請求的數據,由普通表單提交過來即可。 Dim JMail, contentId Set JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ’ 郵件字符集,默認為"US-ASCII" ’ JMail.ISOEncodeHeaders = False ’ 是否進行ISO編碼,默認為True ’ 發送者信息(可用變量方式賦值) JMail.From = "xx@xxx.com" ’ 用于發送的郵箱 JMail.FromName = "網站1" ’ 發送者姓名 JMail.Subject = "信箱a" ’ 郵件主題 ’ 身份驗證 JMail.MailServerUserName = "xx@xxx.com" ’用于發送的郵箱 JMail.MailServerPassword = "xxxxxxx" ’ 密碼 ’ 設置優先級,范圍從1到5,越大的優先級越高,3為普通 JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") ’ 加入一個收件人【變量email:收件人地址】可以同一語句重復加入多個 JMail.AddRecipient(yy@yyyy.com) ’ 加入附件【變量filename:附件文件的絕對地址,確保用戶IUSR_????有訪問的權限】 ’ 【參數設置是(True)否(False)為Inline方式】 ’contentId = JMail.AddAttachment (filename, True) ’ 郵件主體(HTML(注意信件內鏈接附件的方式)) JMail.HTMLBody = ""發信人姓名:"&a&"<br>電話:"&aa&"<br>mail:"&aaa&"<br>郵編:"&aaaa&"<br>聯系地址:"&aaaaa&"<br>標題:"&b&" <br> 內容:"&bb&"<br>" ’ 郵件主體(文本部分) JMail.Body = "我們的郵件采用了HTML格式,請點擊郵件下方""HTML內容""來查看詳細內容。" ’ 發送【調用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】 sendok=JMail.Send("mail.xxx.com") '發送mail服務器 if sendok then endstr= "已經成功發送了郵件!" else endstr= "發送郵件失敗,可能是您填寫了錯誤的郵件地址。<br/>" & _ "如果您確信沒有寫錯郵件地址,則可能是發信程序出了<br/>" & _ "故障,請與管理員聯系!" end if ’ 關閉并清除對象 JMail.Close() Set JMail = Nothing %> <%=endstr%> |
分享:如何防止網上投票重復投票ASP對象 在ASP中有5個對象:Request、Response、Session、Application、Server。下面只針對本文能用到的對象屬性進行說明,其他方面的屬性請參考相關資料。本文提供的方法的原理是:設置一個邏輯變量IsVoted,在投票之前驗證IsVoted的值,只有值為False時,才
相關ASP教程:
- 相關鏈接:
- 教程說明:
ASP教程-asp如何使用Jmail組件發送信息到指定郵箱。