以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  邮件发送表中已添加的附件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108030)
--  作者：恒隆君
--  发布时间：2017/10/14 15:55:00
--  邮件发送表中已添加的附件
如果想将表A 第七、八行， 列5~列9作为邮件内容发送。
列10 中的图纸 作为附件发送。

如果实现？

或者只发送一行。
--  作者：有点蓝
--  发布时间：2017/10/14 16:18:00
--  
参考：http://www.foxtable.com/webhelp/scr/1404.htm
--  作者：恒隆君
--  发布时间：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()


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

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

增加多个附件，如果实现
--  作者：有点甜
--  发布时间：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