以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  发邮件错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154034)
--  作者：outcat
--  发布时间：2020/9/1 19:23:00
--  发邮件错误
老师，看一下，提示错误   发送邮件失败， 无法访问已释放的对象 对象名  “System.Net.Mail.MailMessage”。

Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf \'定义两个换行
m.Host = "smtp.qq.com"
m.EnableSsl = True \'必须将EnableSsl属性设置为True
m.Account = "41872451@qq.com"
m.Password = "ggsuginredqfbggc"
m.From = "41872451@qq.com"
For Each dr As DataRow In DataTables("月缴费表").Select("月份= \'2020年9月\'")
    m.To = dr("邮箱")
    m.Title = "缴费单"
     m.Content = dr("姓名")  & ":" & ln & "您的本月缴费清单"  & dr("月份") &  "用电量" & dr("电费_用量") &  vbcrlf & "电费金额 " & dr("电费_金额") &  vbcrlf & "物业费金额 " & dr("物业费_金额") &  vbcrlf & " "
    m.Content = m.Content & "合计金额为" & dr("小计") & "元, 请尽快交款!" & ln & "东茂物业管理办公室" & vbcrlf & Date.today
    m.Send()
Next
--  作者：outcat
--  发布时间：2020/9/1 20:08:00
--  
For Each dr As DataRow In DataTables("月缴费表").datarows

老师，当我把改成不按条件查找时，出现同样的的错误，但是 却发出去了一封邮件（该表的第一条记录），不知道怎么回事，请老师赐教
--  作者：有点蓝
--  发布时间：2020/9/1 20:23:00
--  
邮件变量要放到循环里面


Dim ln As String = vbcrlf & vbcrlf \'定义两个换行

For Each dr As DataRow In DataTables("月缴费表").Select("月份= \'2020年9月\'")
Dim m As New MailSender
m.Host = "smtp.qq.com"
m.EnableSsl = True \'必须将EnableSsl属性设置为True
m.Account = "41872451@qq.com"
m.Password = "ggsuginredqfbggc"
m.From = "41872451@qq.com"
    m.To = dr("邮箱")
    m.Title = "缴费单"
     m.Content = dr("姓名")  & ":" & ln & "您的本月缴费清单"  & dr("月份") &  "用电量" & dr("电费_用量") &  vbcrlf & "电费金额 " & dr("电费_金额") &  vbcrlf & "物业费金额 " & dr("物业费_金额") &  vbcrlf & " "
    m.Content = m.Content & "合计金额为" & dr("小计") & "元, 请尽快交款!" & ln & "东茂物业管理办公室" & vbcrlf & Date.today
    m.Send()
Next
--  作者：outcat
--  发布时间：2020/9/1 22:06:00
--  
老师，我想请教一下，这个表的每一条记录如何转换成一条条的，生成附件文件呢
--  作者：有点蓝
--  发布时间：2020/9/1 22:44:00
--  
导出：http://www.foxtable.com/webhelp/topics/0683.htm