Foxtable(狐表)用户栏目专家坐堂 → [求助] 邮箱如何添加多个附件


  共有2180人关注过本帖树形打印复制链接

主题:[求助] 邮箱如何添加多个附件

帅哥哟,离线,有人找我吗?
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1353 积分:9868 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 邮箱如何添加多个附件  发帖心情 Post By: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()


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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编辑过]

 回到顶部