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()
上面是一个按钮的代码，产生"采购单"这个文件的过程没有问题，但是发送附件"采购单"却没有任何反应，发件邮箱没有记录，收件邮箱也没有记录，也没有任何提示。请问是哪里的问题呢？谢谢。
加好友 
发短信
Post By：2022/12/29 15:41:00 [只看该作者]
