现在有200多个客户，我要给每一个客户发送邮件，而且每个客户的内容不同，每个客户只能收到自已的邮件，不能收到其他人的邮件。

在网上找不到能有这样功能的邮件发送程序，只好求助于FOXTABLE了，可是看了两天，也不知如何实现，请各位大侠赐教。

可否祥述一下

刚刚新加一段帮助，复制给你：

有了MailSender，我们可以根据数据表内容动态合成邮件发送，例如下面的代码从借款表中筛选出10天内到期的客户，并发送催款邮件：

正是我所需要的，谢谢版主。

有如此负责认真的开发商，foxtable 不火对不住上天。

我有一个发信的表，里面有三个字段，分别是单位，邮箱，文件，其中文件类型为多文件型，用于发送一个或多个附件。

我用下面的代码发送时出现了错误，请大侠们指出错误所在，谢谢。

代码如下：

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.qq.com"
m.Account = "472627211"
m.Password = "jxk09@%"
m.From = "472627211@qq.com"
For Each dr As DataRow In DataTables("发信")
    m.To = dr("邮箱")
    m.Title = "十月份单位工资数据归档包"
    m.Content = dr("单位")  & ":" & ln & "请你单位按附件为准进行归档,"
    m.Content = m.Content & "归档方法同以往操作方法,也可到群共享中查看具体归档方法和步骤!" & ln & "佳县**局" & vbcrlf & Date.today
    m.AddAttachments(dr("文件"))
    m.SendAsync()
Next

此主题相关图片如下：qq截图未命名1.png

将上面的For Each dr As DataRow In DataTables("发信")
改为For Each dr As DataRow In DataTables("发信").datarows后又出现下面的提示

用下面的代码执行时出现了下面的错误

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.qq.com"
m.Account = "472627211"
m.Password = "09@%"
m.From = "472627211@qq.com"
For Each  dr As DataRow In DataTables("发信").DataRows
    m.To = dr("邮箱")
    m.Title = "十0月份单位工资数据归档包"
    m.Content = dr("单位")  & ":" & ln & "请你单位按附件为准进行归档,"
    m.Content = m.Content & "归档方法同以往操作方法,也可到群共享中查看具体归档方法和步骤!" & ln & "佳县**局" & vbcrlf & Date.today
    m.AddAttachments("F:\\发信\\kqf.txt")
    m.SendAsync()
Next