主题：邮箱发送失败

发邮件怎么可能是这种错误？单独到命令窗口测试看看提示什么错误

没有什么具体提示

改成SendAsync()网页则不会被终止

此主题相关图片如下：qq截图20231208152706.png

是邮箱不行了吗

提示邮件服务器拒绝接收，可能是之前发送太多，被服务器屏蔽了

Dim msg2 As String '’做邮箱发送设置
Dim m2 As New MailSender
m2.Host = "smtp.feishu.cn"
m2.EnableSsl = True '必须将EnableSsl属性设置为True
m2.Account = "scy"
m2.Password = "vtpz0Gk3GH93"
m2.From = "sss@7400.xyz"
m2.Port = "465"
m2.AddReceiver("13840700@139.com")
m2.Title = "船舶申报提醒"
msg2 = ",请按要求进行后续工作。"
m2.Content = msg2
m2.Send

 

这个提示超时

 

官方信息：

邮箱地址
sss@7400.xyz
收信服务器（IMAP）
imap.feishu.cn
使用 SSL，端口号：993
发信服务器（SMTP）
smtp.feishu.cn
使用 SSL，端口号：465

账户改为完整的发送邮箱试试，其它看不出什么问题

还是一样提示超时，没办法了

 

m2.AddReceiver("13840700@139.com")

此主题相关图片如下：qq截图20231208152706.png

还是这个