主题：求助：提示发送邮件失败 无法从传输连接中读取数据: net_io_connectionclosed。如何解决呢？

代码不能这样写，你应该被整一段代码写成函数，然后异步执行这个函数。

也就是：发送邮件代码，写成异步函数；调用发送邮件那里，不能用异步。

If rw("电子邮件") <> Nothing Then
    Dim ab As Row = Tables("系统信息").Current
    Dim drs = DataTables("告知内容").Select("姓名 = '" & rw("姓名") & "'And 是否告知 = '是' " )
    For Each dr As DataRow In drs
        Functions.Execute("SendEmail",ab,rw,dr)
        ' dr("是否告知")="是"
    Next
End If

更换你的邮箱的账号密码等信息后测试。

尝试先发一条信息

    For Each dr As DataRow In drs
        Functions.Execute("SendEmail",ab,rw,dr)

        exit for
    Next

加上 try catch 即可

http://www.foxtable.com/webhelp/scr/2070.htm

或者看看

http://www.foxtable.com/webhelp/scr/2655.htm

调用的时候，获取信息

    For Each dr As DataRow In drs
        Dim jg = Functions.Execute("SendEmail",ab,rw,dr)

        If jg = "出错" Then

            exit for

        End If
    Next

调用的时候，获取信息

    For Each dr As DataRow In drs
        Dim jg = Functions.Execute("SendEmail",ab,rw,dr)

        If jg = "出错" Then

            dr("是否告知")="否"

            'exit for

        Else

            dr("是否告知")="是"

        End If
    Next