主题：用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

For Each dr As DataRow In DataTables("发信").DataRows

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

这是是因为你加了附件后，却没有清除上一条记录的附件，可以这样解决看看

 

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 = "9@%"
    m.From = 472627211@qq.com
    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

你不能用Current，Current表示当前行的，所以你的代码应该是：

 

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 = "9@%"
    m.From = 472627211@qq.com
    m.To = dr("邮箱")
    m.Title = "0月份单位工资数据归档包"
    m.Content = dr("单位")  & ":" & ln & "请你单位按附件为准进行归档,"
    m.Content = m.Content & "归档方法同以往操作方法,也可到群共享中查看具体归档方法和步骤!" & ln & "佳县**局" & vbcrlf & Date.today
      Dim Parts() As String = dr("文件").Replace(vbcr,"").Split(vblf)
      For i As Integer = 0 To Parts.Length - 1
        m.AddAttachments(Parts(i))
      Next
    m.SendAsync()
Next

 

还是要多看多理解并帮助的

获得选中的行：

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

 

所以代码很简单：

Dim dr As Row = Tables("XXX").Current
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"
m.To = dr("邮件地址")
m.Title = "催款通知"
m.Content = dr("姓名") & dr("尊称") & ":" & ln & "您的贷款将于" & dr("到期日期") & "到期, "
m.Content = m.Content & "金额为" & dr("金额") & "元, 请准时还款!" & ln & "某某公司" & vbcrlf & Date.today
m.SendAsync()

建议多看Foxtable自带帮助文件，而不是看人家的例子。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
此外一定要先掌握《使用指南》，然后再看《开发指南》

 

 

m.AddAttachments(ProjectPath  & "Attachments\" & r("存储附件名称的列名"))