主题：老大,帮我看看我的发送邮件的代码有什么问题?

DataTables("邮件系统").Save
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "Server"
cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim m As New MailSender
    m.Host = dt.DataRows(0)("SMTP设置_服务器")
    m.Account = dt.DataRows(0)("邮件帐号")
    m.Password = dt.DataRows(0)("邮件密码")
    m.From = dt.DataRows(0)("Email")
    m.To = Tables("邮件系统").Current("收件人")
    m.Title = Tables("邮件系统").Current("主题")
    m.Content = Tables("邮件系统").Current("内容")
    Dim Multi1 As String = Tables("邮件系统").Current("附件")
    Dim Values1() As String
     m.SendAsync()
End If
MessageBox.Show("邮件发送成功")

 

 

  这个发送没有问题,可以成功.

DataTables("邮件系统").Save
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "Server"
cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim m As New MailSender
    m.Host = dt.DataRows(0)("SMTP设置_服务器")
    m.Account = dt.DataRows(0)("邮件帐号")
    m.Password = dt.DataRows(0)("邮件密码")
    m.From = dt.DataRows(0)("Email")
    m.To = Tables("邮件系统").Current("收件人")
    Dim Multi As String = Tables("邮件系统").Current("抄送")
    Dim Values() As String
    Values = Multi.split(",")
    For Index As Integer = 1 To Values.Length - 1
        m.AddReceiver(Values(Index))
    Next
    m.Title = Tables("邮件系统").Current("主题")
    m.Content = Tables("邮件系统").Current("内容")
     m.SendAsync()
End If
MessageBox.Show("邮件发送成功")

 

  加了多人收件,不起作用,我的多人的代码写法有问题吗?

 

 

 另外附件也是这样的写法,有问题吗?

 

    Dim Multi1 As String = Tables("邮件系统").Current("附件")
    Dim Values1() As String
    Values1 = Multi1.split(",")
    For Index1 As Integer = 1 To Values1.Length - 1
        m.AddAttachments(Values1(Index1))
    Next
    

后来我把代码修改了一下:

 

DataTables("邮件系统").Save
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
dt = cmd.ExecuteReader
Dim m As New MailSender
If dt.DataRows.Count > 0 Then
    m.Host = dt.DataRows(0)("SMTP设置_服务器")
    m.Account = dt.DataRows(0)("邮件帐号")
    m.Password = dt.DataRows(0)("邮件密码")
    m.From = dt.DataRows(0)("Email")
End If
    m.To = Tables("邮件系统").Current("收件人")
      MessageBox.Show(1)
    m.Title = Tables("邮件系统").Current("主题")
    m.Content = Tables("邮件系统").Current("内容")
    MessageBox.Show(2)
       m.SendAsync()
MessageBox.Show("邮件发送成功")

 

 

  红色部分都通过了,但是出现了错误提示:

 

 

此主题相关图片如下：tm截图未命名.jpg