幾天來關(guān)于郵件組件試了一遍。
因客戶需要購買了阿里云獨(dú)立美國服務(wù)器，原空間在西部數(shù)據(jù)用的jmail組件，一直好用
購買服務(wù)器后代碼復(fù)制過來肯定不好用了，原因很簡單，沒有安裝jmail組件
安裝jmail
仍然不好用
百度查出是兼容32位系統(tǒng)問題，按照提示操作并注冊(cè)好jmail組件，依然不好用
通過探針，檢測了常規(guī)的郵件組件裝了一遍，還是無效
通過微信求助
找到一哥們給搞定了
重裝win2008服務(wù)器
安裝CMailServer
用QQ郵箱開啟smtp,并通過授權(quán)碼登陸
代碼張貼如下：
<%
Dim objMail
'初始化aspEmail組件
Set objMail = Server.CreateObject("Persits.MailSender")
'設(shè)定SMTP模式為SSL，端口號(hào)為465
objMail.SSL=True
objMail.Port=465
'設(shè)置郵件編碼格式為UTF-8，MIME編碼為Quoted-Prontable，必須有，否則中文亂碼
objMail.CharSet="UTF-8"
objMail.ContentTransferEncoding="Quoted-Prontable"
'設(shè)定郵箱的smtp服務(wù)器地址，如smtp.abc.com，使用時(shí)要替換為自己的地址
objMail.Host = "smtp.qq.com"
'設(shè)定發(fā)送者的郵箱地址
objMail.From = "88888@qq.com"
'設(shè)定發(fā)送者顯示的名稱，如不設(shè)置，則顯示發(fā)送者郵箱地址，要編碼為utf-8，否則中文亂碼
objMail.FromName = objMail.EncodeHeader(Sender,"utf-8")
'添加接收者的地址
objMail.AddAddress "le888onid@qd8886an667.com"
'設(shè)置郵件標(biāo)題，要編碼為utf-8，否則中文亂碼
Subject="標(biāo)題lu"
objMail.Subject = objMail.EncodeHeader(Subject,"utf-8")
'郵件內(nèi)容為html，根據(jù)實(shí)際情況設(shè)置，默認(rèn)false
objMail.IsHTML = true
'郵件內(nèi)容
objMail.Body = "<div style=""color:red;"">luceshi</div>"
'smtp身份認(rèn)證信息
objMail.Username="88888@qq.com"
objMail.Password="改成自己的授權(quán)碼"
'發(fā)送郵件
objMail.Send
'完成后釋放資源
Set objMail=nothing
%>
就這么多.....
服務(wù)電話： 13153221315
