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

如果想将表A 第七、八行， 列5~列9作为邮件内容发送。

参考：http://www.foxtable.com/webhelp/scr/1404.htm

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

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

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

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

增加多个附件，如果实现

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