ASP版CDONTS和Jmail發郵件實例

 

CDONTS: 
　　<% on error resume next 
　　username="dh20156" 
　　userpass="123456" 
　　realname="杜歡"
　　email="[email protected]" 
　　
　　dim objCDOMail 
　　Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 
　　objCDOMail.From ="[email protected]" 
　　objCDOMail.To =email 
　　objCDOMail.Subject ="威馳會員註冊確認信" 
　　objCDOMail.BodyFormat = 0 
　　objCDOMail.MailFormat = 0 
　　objCDOMail.Body ="祝賀您"&realname&",您的註冊非常成功,歡迎加入威馳這個大家庭!您的登錄用戶名是:"&username&",登錄密碼:"&userpass&"請妥善保管您的登錄資料,定期更改您的密碼!再次感謝您對我們的支持!威馳設計開發工作組全體同仁http://www.v-ec.com/" 
　　objCDOMail.Send 
　　Set objCDOMail = Nothing 
　　if err then 
　　SendMail=err.description 
　　err.clear 
　　end if %>

JMAIL: 
　　<% 
　　Server.ScriptTimeOut=1000000 
　　
　　Dim JMail 
　　Set JMail = Server.CreateObject("JMail.Message") 
　　
　　smtpserver = "smtp.???.net" '支持外發的郵件服務器 
　　smtpuser = "???@???.net" '你的郵箱用戶名 
　　smtppwd = "123456789" '你的郵箱密碼 
　　
　　Jmail.Silent = true 
　　JMail.Charset = "gb2312" 
　　JMail.Logging = true 
　　JMail.Priority = 3 
　　
　　JMail.From = "[email protected]" 
　　JMail.FromName = "威馳設計開發工作組" 
　　Jmail.ReplyTo ="[email protected]" 
　　
　　JMail.AddRecipient("[email protected]") 
　　
　　JMail.Subject = "威馳會員註冊成功確認信"& vbcrlf & vbcrlf & tbody 
　　JMail.Body = "祝賀你成功地註冊成爲我們的會員!" 
　　
　　Jmail.MailServerUserName = smtpuser 
　　Jmail.MailServerPassWord = smtppwd 
　　
　　isgo = Jmail.Send(smtpserver) 
　　if isgo then 
　　RESPONSE.WRITE("提交成功！謝謝你的支持。") 
　　RESPONSE.WRITE("<pre>"&JMail.log&"</pre>") 
　　else 
　　RESPONSE.WRITE("<pre><font color=#ff0000 face=arial>"&JMail.log&"</font></pre>") 
　　end if 
　　
　　JMail.Close() 
　　Set JMail = Nothing 
　　%>