参照http://www.foxtable.com/webhelp/topics/1404.htm 例子，做了一个根据邮件地址发送邮件的程序，
在没有加入标为红色语句前，使用正常。但是加入第发送一封暂停2秒的语句后，大概发送5封邮正常，发送
10份邮件，非常卡。
这句红色部分代码不知道如何改写（暂停2秒）
For Each dr As DataRow In DataTables("借款").Sel ect ( "到期日期 <= #" & Date.Today.AddDays(10) & "#")
Dim m As New MailSender
Threading.Thread.Sleep(2000) '暂停2秒
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()
Next
[此贴子已经被作者于2020/3/26 13:07:26编辑过]
加好友 
发短信
Post By：2020/3/26 12:57:00 [显示全部帖子]
