主题：用FOXTABLE发邮件问题

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

 

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

用Foxtable可以很好地解决这个问题，看看帮助中的MailSender

可否祥述一下

帮助说得很详细啊。

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

 

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

 

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
For Each dr As DataRow In DataTables("借款").Select("到期日期<= #" & Date.Today.AddDays(10) & "#")
    m.To = dr("邮件地址")
    m.Title = "催款通知"
    m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
    m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
    m.SendAsync()
Next

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

有如此负责认真的开发商，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后又出现下面的提示

 

 

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

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

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

你可能有的行没有输入邮箱地址。