|
|
阿里云发送SMTP邮件失败，阿里云服务器不能发邮件解决方法 。默认现在阿里云25端口是被屏蔽的，只能用465端口。由于jmail不能自定义端口的限制，所以只能另外想办法。不多说，代码如下，亲测成功。
- <%
- dim ttasp
- ttasp= "学员编号：" & StuNum & vbcrlf
- ttasp= ttasp& "联系姓名：" & name & vbcrlf
- ttasp= ttasp& "联系电话：" & Tel1 & vbcrlf
- ttasp= ttasp& "联系地址：" & dq & "." &dq2 & vbcrlf
- ttasp= ttasp& "年级性别：" & nj & "." & sex & vbcrlf
- ttasp= ttasp& "求教学科：" & km & vbcrlf
- ttasp= ttasp& "学员情况：" & qk & vbcrlf
- ttasp= ttasp& "教员要求：" & yq & vbcrlf
- ttasp= ttasp& "想了解该学员具体信息请点击该学员链接：" & website & "/StuDetail.asp?UserId=" &StuNum& vbcrlf
- ttasp= ttasp& "发布时间：" & now & vbcrlf
-
- '第一步: 创建一个 CDO.Message 对象
- dim objMail
- Set objMail = Server.CreateObject("CDO.Message")
- '第二步: 配置服务器，用户名，和相关的授权密码
- smtpServer ="smtp.ttasp.com" '用一个有效的邮箱替换这个范例邮件地址
- yourEmail ="email@ttasp.com" '用一个有效的邮箱替换这个范例邮件地址
- yourPassword ="78792588" '用一个有效的密码来替换这个范例的邮件密码
- '第三步:配置用于接收邮件的邮箱
- sendEmailTo = Agentqq1 & "@qq.com"
-
-
- '第四步: 设置objMail对象的配置属性
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = yourEmail
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = yourPassword
- objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
- '第五步：设置完所有必要配置后，更新其设置。
- objMail.Configuration.Fields.Update
- '第六步: 准备你的电子邮件，如设置主题，正文等。
- objMail.From = yourEmail
- objMail.To = sendEmailTo
-
- objMail.Subject= "新家教编号：" & StuNum
- objMail.htmlBody = ttasp
- '第七步：发送该邮件
- objMail.Send
- Set objMail = Nothing
- %>
|
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡