主要考虑到发送mail是有一个时间过程，有时候需要等待几十秒。所以想在点击第一次ok（第一行红色代码）到出现提示框（第二行红色代码）这个等待时间做成一个等待时间或者进度完成的进度条。

If r.Isnull("需求描述")=False AndAlso r.Isnull("show_version")=False AndAlso r.Isnull("版本期望交期")=False
    If MessageBox.show("请确认新增行内容是否可以提交售后审核?","提交前请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then       
        Dim m As New MailSender
        m.Host = "mail.bdcom.com.cn"
        m.Account = "version@bdcom.com.cn"
        m.Password = "version"
        m.From = "version@bdcom.com.cn"
        m.AddReceiver(r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        If r.IsNull("技术支持邮箱") = False Then
            m.AddReceiver(r("技术支持邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
        End If
        m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") & "-----新需求已提交,请售后管理员审核"
        m.C & r("需求编号") & "      客户:"  & r("客户") & "      博达机型:" & r("博达机型") & "     需求提交时间:" & r("需求提交时间")& "     版本期望交期:" & r("版本期望交期") & "       附件:" & r("附件")
        m.Send
        MessageBox.show("需求编号:" & r("需求编号") & "已提交售后审核并mail通知了相关邮件接收者!","博达软件管理系统")
        r("已提交") = True
       
        If r.DataRow.GetChildRows("需求主表").Count = 0 Then
            Dim dr As DataRow = DataTables("需求主表").AddNew()
            dr("需求编号") = r("需求编号")
        End If
        r("流程") = "审核"
    End If
End If

 你可以改用异步发送

m.Send

改成

m.SendAsync

2种发送方式有什么区别呢？

如果做一个正在发送mail的进度条，该如何做呢？

你可以做一个窗口，弹出来，文字提示正在发送；在send之后，关闭窗口。

做一个弹出框，这个可以实现。

但总觉得弹出框的提示不然动态的进度条显示直观。

叫你做一个窗口提示，窗口你做什么提示都可以，发送完毕以后关闭窗口

咋就没谈出“发送mail”的窗口呢？

If MessageBox.show("请核实已审核的需求","博达软件管理系统",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then
                Forms("发送mail").open
                Dim m As New MailSender
                m.Host = "mail.bdcom.com.cn"
                m.Account = "version@bdcom.com.cn"
                m.Password = "version"
                m.From = "version@bdcom.com.cn"
                m.To = r("邮件通知").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ",")
                If r.IsNull("研发邮箱") = False Then
                    m.AddReceiver(r("研发邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
                End If
                If r.IsNull("技术支持邮箱") = False Then
                    m.AddReceiver(r("技术支持邮箱").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
                End If
                If r.IsNull("附加通知人员") = False Then
                    m.AddReceiver(r("附加通知人员").Replace(vbcrlf, ",").Replace(chr(13), ",").Replace(chr(10), ","))
                End If
                m.Title = "博达软件管理系统= = = = = = =" & "需求编号:" & r("需求编号") & "-----此需求已审核,请研发和测试尽快处理"
                m.C & r("需求编号") & "      客户:" & r("客户") & "      博达机型:" & r("博达机型") & vbcrlf & "需求提交时间" & r("需求提交时间") & "      版本期望交期" & r("期望交期") & vbcrlf & "show version" & r("show_version") & vbcrlf & "需求描述:" & r("需求描述")
                m.Send
                Forms("发送mail").close
                MessageBox.show("需求编号:" & r("需求编号") & "------>" & "此需求已审核通过并mail通知了相关研发测试人员!","博达软件管理系统")