测试空间是否支持JMAIL以及发送的代码

<%
On Error Resume Next
   Dim JMail
   Set JMail=Server.CreateObject("JMail.Message")
   If JMail Is Nothing  Then
   Response.Write "不支持"
   Else
   Response.Write "支持"
   End If
%>

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
   
2. <%
   
3. response.charset="utf-8"
   
4. 
   
5. Set msg = Server.CreateObject("JMail.Message")
   
6. msg.Logging = true
   
7. msg.Charset = "gb2312"
   
8. msg.MailServerUserName = "travel@163.com"  '//填写发信人邮箱
   
9. msg.MailServerPassword = "XUUWKYTPDE"  '//授权码/邮箱密码
   
10. msg.Priority = 1
    
11. msg.From = "travel@163.com" '//填写发信人邮箱
    
12. msg.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    
13. msg.FromName = "ttasp"
    
14. msg.AddRecipient "97492@qq.com" '//收信人邮箱
    
15. msg.Subject = "测试标题"
    
16. msg.Body = "邮件内容"
    
17. 
    
18. if not msg.Send("smtp.163.com") then  '//如果是其他邮箱，换成邮局对应的smtp服务器地址
    
19. Response.write "邮件未能发送"
    
20. else
    
21. Response.write "成功"
    
22. end if
    
23. msg.Close()
    
24. Set msg = Nothing
    
25. %>

复制代码