主题：求助群发邮件问题

有两个表，一个为《公司信息》，一个为《订单》。《公司信息》包括公司名称、邮箱等列。《订单》包括产品、公司名称等列。求助如何实现将不同公司的产品订单自动的发给对应的公司。

看案例四

http://www.foxtable.com/help/topics/1404.htm

案例4是所有信息同在一张表里的，但是这里是在两个表里的。另外案例4是每一行发一封邮件，这里希望一个公司的所有产品订单合并后发一次邮件。谢谢

你做个简单例子上来方便人家帮你····

提供个思路 首先要明确什么样的订单需要发送邮件  然后根据条件筛选出来生成一张表 后面的简单了 根据公司名称调用对应的邮件地址发送邮件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:群发邮件.table

 

将公司1的产品发达公司1的邮箱里，将公司2的产品发的公司2的邮箱…………。谢谢

发送选定订单到对应产品供应商的邮箱：

 

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

3q狐爸，完毕封贴。