Dim ln As String = vbcrlf & vbcrlf '定义两个换行
Dim drs As List(Of DataRow)
drs = DataTables("记录").Select("[类型]= '纠正'")
For Each dr As DataRow In drs
Dim m As New MailSender
m.Host = "smtp.exmail.qq.com"
m.EnableSsl = True '
m.Account = "test@test.com"
m.Password = "test"
m.From = "test@test.com"
m.To = "user1@test.com"
m.Title = "行动项到期"
m.Content = dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成"
output.Show(dr("责任人") & "： 您的行动项 [" & dr("措施") & " ]," & ln & "计划在" & dr("计划完成时间") & "前完成")
m.SendAsync()
Next
加好友 
发短信
Post By：2023/12/29 9:53:00 [显示全部帖子]
