主题：发邮件间隔时间求助

代码如下，因为邮箱限制的问题，导致只能发一封，如何在代码里加入等待时间呢？

Dim sendmail As String = e.Form.Controls("发件箱选择").Text
Dim title As String = e.Form.Controls("标题内容").Text
Dim nn As String = e.Form.Controls("正文内容").Text
Dim dr As DataRow = DataTables("发件箱表").Find("发件人地址 = '" & sendmail & "'")
Dim sp As New System.Net.Mail.SmtpClient(dr("smtp"),25)
sp.Credentials = New System.Net.NetworkCredential(dr("帐号"),dr("密码"))
'创建邮件
Dim mail As New System.Net.Mail.MailMessage()
'邮件主题
For Each r As DataRow In DataTables("收件人列表").DataRows
    mail.Subject = title & r("姓名")
    '主题编码
    mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")
    '邮件正文件编码
    mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")
    '发件人邮箱
    mail.From = New System.Net.Mail.MailAddress(sendmail)
    '邮件优先级
    mail.Priority = System.Net.Mail.MailPriority.Normal
    'HTML格式的邮件,为false则发送纯文本邮箱
    mail.IsBodyHtml = True
    '邮件内容
    mail.Body = nn
    '添加收件人,如果有多个,可以多次添加
    mail.To.Add(r("邮件地址"))
    '定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
    '如果不需要附件,下面三行可以不要
    'Dim a As New System.Net.Mail.Attachment("附件文件路径")
    '附件文件名,用于收件人收到附件时显示的名称
    'a.Name = "附件文件名"        '加入附件,可以多次添加
    'mail.Attachments.Add(a)'发送邮件
    Try
        sp.Send(mail)
        MessageBox.Show("发送成功")
        Catch
        MessageBox.Show("发送失败")
    Finally
        mail.Dispose()
    End Try
Next

增加个发送完成的标志列，增加一个5分钟执行一次的计划，每次都找出第一个没有发送的行，发送邮件完成后，将标识列设置一下。

狐爸，这样判断的话弹窗很多啊

而且还有个毛病，因为这些人不是只发一次邮件的，这个标示列的判断很啰嗦啊，没效率啊

例如你要等三秒再执行下一行代码：

 

Threading.Thread.Sleep(3000)

 

那在循环代码中如何暂停呢？

for each dr as datarow in datatables("xxx").datarows

    '原来的代码

    Threading.Thread.Sleep(3000)

next

狐爸，我错了，应该不是QQ邮箱的问题，我间隔时间到了5分钟，第一封成功，第二封开始依然是发送失败，用msgbox看了收件人的地址是正确的

代码看了半天也看不出来问题。。

搞定了