以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  发送附件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70481)

--  作者:lshshlxsh
--  发布时间:2015/6/23 9:39:00
--  发送附件
请问以下代码发送附件第一次执行的时候正常,再执行一次提升文件已经打开,请问代码应该怎么修改
此主题相关图片如下:1.png
按此在新窗口浏览图片
请问以下代码是什么原因造成错误的?
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\样品单.xls")
    Book.Save(fl)
\'通过邮件发送
m.Host = "192.168.1.89"
m.AddAttachments(ProjectPath & "Reports\\样品单.xls")
[此贴子已经被作者于2015/6/23 10:28:45编辑过]

--  作者:大红袍
--  发布时间:2015/6/23 13:11:00
--  

 上传具体例子。

 

 提示这个,说明你的xls就是已经被打开了。