Foxtable(狐表)用户栏目专家坐堂 → 邮件发送表中已添加的附件


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

主题:邮件发送表中已添加的附件

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
邮件发送表中已添加的附件  发帖心情 Post By:2017/10/14 15:55:00 [只看该作者]

如果想将表A 第七、八行, 列5~列9作为邮件内容发送。
列10 中的图纸 作为附件发送。

如果实现?

或者只发送一行。

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/14 16:18:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
恒隆君
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/14 19:10:00 [只看该作者]

可以同时添加多个收件人:

Dim m As New MailSender
m
.Host = "smtp.21cn.net"
m
.Account = "xiaoliu"
m
.Password = "xiaoliu1234567"
m
.From = "xiaoliu@Sina.com.cn"
m.AddReceiver(
"meili@Sina.com.cn")
m.AddReceiver(
"yangzi@Microsoft.com")
m.Title = 
"李总明天来北京"
m
.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()



还可以加入附件:

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.SendAsync()


如果我制定一个窗口,发送邮件。

增加多收件人。如果实现。

增加多个附件,如果实现



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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/15 15:15:00 [只看该作者]

for each u as string in "张三,李四".split(",")

    m.AddReceiver(u)

next

 

for each u as string in "d:\test.xls,d:\abc.txt".split(",")

    m.AddAttachments(u)

next


 回到顶部