- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助群发邮件问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21955)
-- 发布时间：2012/7/28 23:51:00
-- 求助群发邮件问题
有两个表，一个为《公司信息》，一个为《订单》。《公司信息》包括公司名称、邮箱等列。《订单》包括产品、公司名称等列。求助如何实现将不同公司的产品订单自动的发给对应的公司。
-- 发布时间：2012/7/29 0:44:00
--
看案例四
http://www.foxtable.com/help/topics/1404.htm
-- 发布时间：2012/7/29 8:28:00
--
案例4是所有信息同在一张表里的，但是这里是在两个表里的。另外案例4是每一行发一封邮件，这里希望一个公司的所有产品订单合并后发一次邮件。谢谢
-- 发布时间：2012/7/29 20:53:00
--
你做个简单例子上来方便人家帮你····
-- 发布时间：2012/7/29 21:25:00
--
提供个思路 首先要明确什么样的订单需要发送邮件 然后根据条件筛选出来生成一张表 后面的简单了 根据公司名称调用对应的邮件地址发送邮件
-- 发布时间：2012/7/30 9:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:群发邮件.table |
将公司1的产品发达公司1的邮箱里，将公司2的产品发的公司2的邮箱…………。谢谢
-- 发布时间：2012/7/30 10:20:00
--
发送选定订单到对应产品供应商的邮箱：
Dim r As Row = Tables("订单").Current
Dim dr As DataRow = DataTables("供应商信息").Find("公司名称 = \'" & r("公司名称") & "\'")
If dr IsNot Nothing Then
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = dr("邮箱")
m.Title = "有件标题"
m.C
m.SendAsync()
End If
-- 发布时间：2012/7/30 15:02:00
--
3q狐爸，完毕封贴。