3562 查看 1 回复

主题：[分享]阿里云空间封禁25端口，如何用465端口发送邮件 [收藏主题]

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:hasdiff 性别:男 积分:4156分 威望:1599 帖子:802 精华:0 广播:2 粉丝:11 登录次数:443 次 注册时间:2011/10/28 15:06:45 最后登录:2024/11/18 20:02:40 hasdiff 当前离线 802 主题 2 广播 11 粉丝 级别:七年级 用户积分:4156 分 登录次数:443 次 注册时间:2011/10/28 最后登录:2024/11/18	hasdiff 发表于：2019/7/18 19:55:21   | 只看该作者 查看该作者主题 楼主  做线上考试培训 就选#科汛网校 最近碰到这个问题了，kesion自带用的是jmail发邮件的，阿里云空间默认是封禁25端口的，空间预装的是jmail组件之前收藏过安仔的帖子，http://bbs.kesion.com/forumthread-1419728.html，他改用CDO.Message组件， 我复制他的代码，还是没发送成功，根据回帖稍微修改了下 直接替换掉官方原来的代码，替换后阿里云空间通过465端口发送成功 ↓直接用下面这段修改后的代码替换官方的↓ 复制代码    'CDO发送邮件  Function SendMail(MailAddress, LoginName, LoginPass, Subject, MailCode, Sender, Content, Fromer)   On Error Resume Next   Dim NameSpace,Email   NameSpace = "http://schemas.microsoft.com/cdo/configuration/"       '这个不能更改   Set Email = CreateObject("CDO.Message")     Email.BodyPart.Charset = "gb2312" '邮件的文字编码为国标   Email.From = Fromer   '发件人的E-MAIL地址    Email.To = MailCode      '收信人的地址   Email.Subject = Subject       '邮件的标题   Email.HTMLBody = Content       '邮件的内容   with Email.Configuration.Fields    .Item(NameSpace&"smtpauthenticate") = 1  'SMTP验证,一般都是1,代表普通    .Item(NameSpace&"sendusername") = LoginName       '自己邮箱的用户名    .Item(NameSpace&"sendpassword") = Decrypt(LoginPass)       '密码    ''''''''''''''    .Item(NameSpace&"smtpserverport") = 465 'SMTP服务器（端口25）阿里云封了25，需要用ssl端口465 【一般用25、587 SSL协议端口号：465、587、944】    .Item(NameSpace&"smtpusessl") = "true" 'SMTP服务器（端口25）阿里云封了25，需要用ssl端口465    ''''''''''''''    .Item(NameSpace&"sendusing") = 2 '1 代表使用 local smtp, 2 为外部 smtp    .Item(NameSpace&"smtpserver") = MailAddress       '邮箱服务器域名地址    .Update   end with   Email.Send   If Err Then    CoDMail = Err.Description    Err.Clear   Else    CoDMail = "OK"   End If  End Function ps:论坛的代码模式（↑就上面这段代码↑），简直无法直视，没法换行，像压缩后一样，无法直观阅读
	, 一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:aoo1 性别:男 积分:9213分 威望:843 帖子:1339 精华:1 广播:19 粉丝:11 登录次数:1065 次 注册时间:2009/10/18 18:01:00 最后登录:2022/8/22 10:22:35 aoo1 当前离线 1339 主题 19 广播 11 粉丝 级别:版主 用户积分:9213 分 登录次数:1065 次 注册时间:2009/10/18 最后登录:2022/8/22	aoo1 发表于：2019/9/25 14:55:32   | 只看该作者 查看该作者主题 沙发  有生源 找课程 就上科汛课堂街! 哥们，联系我下吧。QQ602469880，邮件到现在没有配置成功！465端口都开启了。
	科汛商学院助您快速入门
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1