主题：用FOXTABLE发邮件问题

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

 

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

可否祥述一下

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

有如此负责认真的开发商，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

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

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

7楼最后一个图的错误提示，是什么原因造成的？

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.qq.com"
m.Account = "472627211"
m.Password = "9@%"
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
      Dim Parts() As String = CurrentTable.Current("文件").Replace(vbcr,"").Split(vblf)
      For i As Integer = 0 To Parts.Length - 1
        m.AddAttachments(Parts(i))
      Next
    m.SendAsync()
Next

 

这段代码有何问题？请剔教。

问题一：

附件会重复发送两次。

问题二：

向所有用户发送的是第一条纪录的附件。

 

用上述代码执行后，仍然会出现附件重复发送的问题。还有就是把第一个人的附件发到了所有其他 人的邮箱里了。

 

 

经测试发现，用上述代码后，只是将当前纪录的附件发送到所有人的邮箱。纪录没有发生移动。

 

 

如何清空附件？