• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[已回复] 邮件25端口被封有办法在官方代码的基础上改端口吗? [复制链接]

1#
不支持本机25端口解封,建议您尝试使用外部邮件服务商的465加密端口,或者查询所访问发信服务是否提供其它SMTP端口。
有办法改为465端口发送邮件没? 付费求。

Function 发送邮件(你的邮箱帐号, 你的邮箱密码, 发送邮件地址, 邮件主题, 邮件内容, 邮件附件)
//例子:MsgBox lib.网络.发送邮件("ceshi0000001@163.com","ceshi000001","ceshi0000001@163.com","邮件主题","邮件内容","")
Dim You_ID,MS_Space,Email
'帐号和服务器分离
You_ID = Split(你的邮箱帐号, "@")
'这个是必须要的,不过可以放心的事,不会通过微软发送邮件
MS_Space = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
'这个一定要和发送邮件的帐号一样
Email.From = 你的邮箱帐号
'Execute "Email.to = 发送邮件地址"
Email.CC = 发送邮件地址
Email.Subject = 邮件主题
Email.Textbody = 邮件内容
If 邮件附件 <> "" Then
Email.AddAttachment 邮件附件
End If
With Email.Configuration.Fields
'发信端口
.Item(MS_Space & "sendusing") = 2
'SMTP服务器地址
.Item(MS_Space & "smtpserver") = "smtp." & You_ID(1)
'SMTP服务器端口
.Item(MS_Space & "smtpserverport") = 25
.Item(MS_Space & "smtpauthenticate") = 1
.Item(MS_Space & "sendusername") = You_ID(0)
.Item(MS_Space & "sendpassword") = 你的邮箱密码
.Update
End With
'发送邮件
Email.Send
'关闭组件
Set Email = Nothing
发送邮件 = True
'如果没有任何错误信息,则表示发送成功,否则发送失败
If Err Then
Err.Clear
发送邮件 = False
End If
End Function

本主题由 版主 gljxsd 于 2018/3/15 15:30:16 执行 主题分类 操作
2#

您好, 那你就把 代码中 端口 25 改成 你需要的 试试呗. 我没有试验过 如果不行, 建议咨询 按键客服QQ 800082496

发新话题 回复该主题