标题：电邮发送附件

1楼

edisontsui 发表于：2022/12/29 15:41:00

Dim r As Row = Tables("采购单总表").Current'

Dim Book As New XLS.Book(ProjectPath & "Attachments\采购单.xls")

Dim fl As String = ProjectPath & "Reports\采购单.xls"

Book.Build() '生成细节区

Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行

Book.Save(fl) '保存工作簿

'Dim Proc As New Process '打开工作簿

'Proc.File = fl

'Proc.Start()

Dim m As New MailSender

m.Host = "smtp.163.com"

m.Account = "bssj0001"

m.Password = "20111233"

m.From = "bssj0001@163.com"

m.To = r("电子邮件")

m.Title = "新订单"

m.C

' m.AddAttachments("\\BOSON\Foxtable\Foxtable\发布文件\Publish-20221229-1345\Project\Reports\采购单.xls")

m.AddAttachments(fl)

m.SendAsync()

上面是一个按钮的代码，产生"采购单"这个文件的过程没有问题，但是发送附件"采购单"却没有任何反应，发件邮箱没有记录，收件邮箱也没有记录，也没有任何提示。请问是哪里的问题呢？谢谢。

2楼

edisontsui 发表于：2022/12/29 15:43:00

m.C 那里是 m.C 的。

3楼

有点蓝 发表于：2022/12/29 15:50:00

把附件保存到本机发送

4楼

edisontsui 发表于：2022/12/29 16:22:00

1、fl 代表了默认保存路径，就是从哪个路径登录，就保存在哪个路径，这样子的话，档案就可能保存在局域网的公用盘上。这样子，无法发送附件吗？

2、即使无法发送附件，那邮件的发送箱和收件箱也应该有电邮（只是没有附件而已），但是现在发送箱和收件箱都没有任何邮件。那是否说明上述代码的邮箱设置还有问题？

5楼

有点蓝 发表于：2022/12/29 16:50:00

1、MailSender好像仅支持读取本机文件

2、m.SendAsync()改为m.Send看提示什么错误

另外163邮箱好像是要通过授权码登录发送邮件的，不是使用邮箱密码，和qq类似：http://www.foxtable.com/webhelp/topics/3230.htm

6楼

edisontsui 发表于：2022/12/29 17:10:00

是不是发送邮箱的 IMAP/SMTP服务和 POP3/SMTP服务要开启才行？

7楼

有点蓝 发表于：2022/12/29 17:38:00

这个肯定啊

8楼

edisontsui 发表于：2022/12/30 10:57:00

终于成功了：1、Mailsender 可以读取局域网上其他电脑的档案；2、SMTP服务要开启。

9楼

edisontsui 发表于：2023/10/28 9:16:00

我们从foxtable系统发电邮，有的用户能够成功发送，我的电脑也能成功发送，有的电脑就会出现如下提示：

未能解析此远程名称：'smtp.163.com'

请问是代码问题，还是电脑的邮箱问题？谢谢。

10楼

有点蓝 发表于：2023/10/28 9:23:00

有的用户能够成功发送就不是代码的问题。应该是电脑环境的问题，看看25或465/994(使用ssl时)端口是不是被封了

共17 条记录, 每页显示 10 条, 页签: [1] [2]