- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]发送邮件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142722)
-- 发布时间：2019/11/4 17:22:00
-- [求助]发送邮件
报错：邮箱不可用。 服务器响应为:5.7.0 DT:SPM
设置中的Account 是邮箱账号吗？
-- 发布时间：2019/11/4 17:24:00
--
没看懂，写了什么代码？详细错误信息发上来
-- 发布时间：2019/11/4 17:25:00
--
Account 是发件人的邮箱完整账号
[此贴子已经被作者于2019/11/4 17:24:50编辑过]
-- 发布时间：2019/11/4 17:28:00
--
Dim r As Row = Tables("登记信息").Current
If r IsNot Nothing Then
Dim m As New MailSender
m.Host = "smtp.ym.163.com"
m.Account = "crazy@163.com"
m.Password = "123456"
m.From = "crazy@163.com"
m.To = "crazy1@163.com"
m.Title = "初稿已经完成"
m.Co n tent = "附件 为初稿, 请您审阅!"
m.AddAttachments(ProjectPath & "Reports\\" & r("编号") & ".pdf")
m.Send()
End If
然后就报错提示：邮箱不可用。 服务器响应为:5.7.0 DT:SPM
[此贴子已经被作者于2019/11/4 17:29:24编辑过]
-- 发布时间：2019/11/4 17:36:00
--
如果开启了授权码，要使用授权码登录，类似：http://www.foxtable.com/webhelp/topics/3230.htm
Dim r As Row = Tables("登记信息").Current
If r IsNot Nothing Then
Dim m As New MailSender
m.Host = "smtp.ym.163.com"
m.EnableSsl = True \'必须将EnableSsl属性设置为True
m.Account = "crazy@163.com"
m.Password = "这里改为授权码"
m.From = "crazy@163.com"
m.To = "crazy1@163.com"
m.Title = "初稿已经完成"
m.Co n tent = "附件 为初稿, 请您审阅!"
m.AddAttachments(ProjectPath & "Reports\\" & r("编号") & ".pdf")
m.Send()
End If
-- 发布时间：2019/11/4 17:39:00
--
没有开启授权码额，一直提示这个
此主题相关图片如下：email.png
-- 发布时间：2019/11/4 17:52:00
--
是不是企业邮箱的问题？我换成个人邮箱就好了
-- 发布时间：2019/11/4 20:20:00
--
如果使用Foxmail或者outlook设置邮箱，是怎么设置的？使用的是什么端口，添加一下端口设置
-- 发布时间：2019/11/5 9:24:00
--
我添加了后面那个附件就提示邮箱不可用，去掉附件就可以成功发送邮件，那怎么处理？
-- 发布时间：2019/11/5 9:27:00
--
确定这路径是正确的：ProjectPath & "Reports\\" & r("编号") & ".pdf"
试试其它文件能不能发送，比如文本文件。试试把pdf文件压缩一下再发送