邮件变量要放到循环里面
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
加好友 
发短信
Post By：2020/9/1 20:23:00 [显示全部帖子]
