Dim m As New MailSender
Dim ln As String = vbcrlf & vbcrlf '定义两个换行
m.Host = "smtp.exmail.qq.com"
m.EnableSsl = True '
m.Account = "test@test.com"
m.Password = "test"
m.From = "test@test.com"
Dim drs As List(Of DataRow)
drs = DataTables("记录").Select("[类型]= '纠正'")
For Each dr As DataRow In drs
m.To = "user1@test.com"
m.Title = "行动项到期"
m.Content = dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成"
output.Show(dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成")
m.SendAsync()
Next
符合条件有4条，我会收到4封一模一样的邮件，content内容都是一样的。但是output.show显示出来的是正确的，都能正确显示dr的每个字段内容。
这是什么情况？
加好友 
发短信
Post By：2023/12/29 9:45:00 [显示全部帖子]
