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

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

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

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

Threading.Thread.Sleep(3000)

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

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

    \'原来的代码

    Threading.Thread.Sleep(3000)

next

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

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