阿里云服务器不能发邮件，禁用25端口的解决办法（for asp网站）

阿里云发送SMTP邮件失败，阿里云服务器不能发邮件解决方法 。默认现在阿里云25端口是被屏蔽的，只能用465端口。由于jmail不能自定义端口的限制，所以只能另外想办法。不多说，代码如下，亲测成功。

1. 
   
2. <%
   
3. dim ttasp
   
4.          ttasp=         "学员编号：" & StuNum & vbcrlf
   
5.         ttasp= ttasp& "联系姓名：" & name & vbcrlf
   
6.         ttasp= ttasp& "联系电话：" & Tel1 & vbcrlf
   
7.         ttasp= ttasp& "联系地址：" & dq & "." &dq2  & vbcrlf
   
8.         ttasp= ttasp& "年级性别：" & nj & "." & sex & vbcrlf
   
9.         ttasp= ttasp& "求教学科：" & km & vbcrlf
   
10.         ttasp= ttasp& "学员情况：" & qk & vbcrlf
    
11.         ttasp= ttasp& "教员要求：" & yq & vbcrlf
    
12.         ttasp= ttasp& "想了解该学员具体信息请点击该学员链接：" & website & "/StuDetail.asp?UserId=" &StuNum& vbcrlf
    
13.         ttasp= ttasp& "发布时间：" & now & vbcrlf
    
14.         
    
15. '第一步: 创建一个 CDO.Message        对象
    
16. dim objMail
    
17. Set objMail = Server.CreateObject("CDO.Message")
    
18. 
    
19. '第二步: 配置服务器，用户名，和相关的授权密码
    
20. smtpServer ="smtp.ttasp.com" '用一个有效的邮箱替换这个范例邮件地址
    
21. yourEmail ="email@ttasp.com"     '用一个有效的邮箱替换这个范例邮件地址
    
22. yourPassword ="78792588"           '用一个有效的密码来替换这个范例的邮件密码
    
23. 
    
24. '第三步:配置用于接收邮件的邮箱
    
25. sendEmailTo = Agentqq1 & "@qq.com"
    
26. 
    
27. 
    
28. '第四步: 设置objMail对象的配置属性
    
29. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
30. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
    
31. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    
32. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    
33. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
    
34. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = yourEmail
    
35. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourPassword
    
36. objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    
37. 
    
38. '第五步：设置完所有必要配置后，更新其设置。
    
39. objMail.Configuration.Fields.Update
    
40. 
    
41. '第六步: 准备你的电子邮件，如设置主题，正文等。
    
42. objMail.From = yourEmail
    
43. objMail.To = sendEmailTo
    
44. 
    
45. objMail.Subject= "新家教编号：" & StuNum
    
46. objMail.htmlBody = ttasp
    
47. 
    
48. '第七步：发送该邮件
    
49. objMail.Send
    
50. Set objMail = Nothing
    
51. %>
    

复制代码