以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 邮箱如何添加多个附件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119775)
--  作者：2900819580
--  发布时间：2018/5/31 17:49:00
--  [求助] 邮箱如何添加多个附件
 

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\\data\\table.txt")  

m.AddAttachments("c:\\data\\table2.txt")   ‘’如何添加多个附件。 这样只看到最后一个附件而于
m.SendAsync()
--  作者：有点甜
--  发布时间：2018/5/31 17:56:00
--  

测试没问题

 

Dim m As New MailSender
m.Host = "smtp.qq.com"
m.Account = "455189993@qq.com"
m.Password = "helen6849338."
m.From = "455189993@qq.com"
m.To = "765427475@qq.com"
m.Title = "初jkj完成"
m.Content = "附件jkjkj为初稿, 请您审阅!"
m.AddAttachments("d:\\test.xls")  
m.AddAttachments("d:\\11.xls")   \'\'如何添加多个附件. 这样只看到最后一个附件而于
m.Send
msgbox(123)

[此贴子已经被作者于2018/5/31 17:56:37编辑过]