此主题相关图片如下：截图07.png
邮件中只有一个附件时可以正常发送，添加多个附件时出现上图错误，我是采用FileManager来添加附件的，然后发送时从“发件表”中的“附件”字段提取，代码如下，请帮忙看看错在哪里：
Dim cmd As New SQLCommand
Dim dr2 As DataRow
Dim dr3 As DataRow
Dim dt As DataTable
Dim dt1 As DataTable
Dim i As Integer
Dim ii As Integer
Dim str As String
Dim str1 As String=Tables("发件表").Current("附件")
'Dim st() As String =str1.Split("|")
Dim sjr As String = e.Form.Controls("ListBox2").combolist
cmd.C
str=e.Form.Controls("ComboBox1").value
Dim str3 As String=e.Form.Controls("ComboBox2").value
If str<>"" Then
If str3<>"" Then
dr3 = DataTables("邮箱帐户").Find("[发件地址] = '" & str & "'")
Dim sjrs() As String = sjr.Split("|")
For ii = 0 To sjrs.Length-1
Dim m As New MailSender
m.AddReceiver(sjrs(ii))
Dim str4 As String=sjrs(ii)
m.Host = dr3("主机地址")
m.Port = dr3("服务端口")
m.Account = dr3("登陆帐号")
m.Password = dr3("登陆密码")
m.From = dr3("发件地址")
m.Title = e.Form.Controls("TextBox1").Value
dr2 = DataTables("收件地址").Find("[邮箱] = '" & sjrs(ii) & "'")
'dr2 = DataTables("收件地址").Find("[邮箱] = '" & sjrs(ii) & "'")
m.Content = dr2("联系人")&"您好!"&chr(10)&e.Form.Controls("TextBox2").Value
'm.Content = sjrs(ii) &"您好!"&chr(10)&e.Form.Controls("TextBox2").Value
'添加附件
'Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split("|")
Dim fjs() As String = str1.Split("|")
If fjs.Length > 0
For i = 0 To fjs.Length-1
If fjs(i).Length > 0
m.AddAttachments(fjs(i))
End If
Next
End If
m.SendAsync()
Tables("发件历史").AddNew()
Tables("发件历史").Current("发件箱") =m.From
Tables("发件历史").Current("收件人")=str4
Tables("发件历史").Current("主题") =m.Title
Tables("发件历史").Current("内容") =m.Content
Tables("发件历史").Current("发件日期") = Date.Today()
Tables("发件历史").Current("发件人") =UserName
Tables("发件历史").Current("企业名称") =dr2("企业名称")
Tables("发件历史").Current("客户类型") =dr2("客户类型")
Tables("发件历史").Current("客户等级")=dr2("客户等级")
Tables("发件历史").Current("客户编号")=dr2("客户编号")
Tables("发件历史").Current("邮件类型")=str3
Tables("发件历史").Current("附件")= str1
Tables("发件历史").Current.Save()
Next
MessageBox.Show("邮件发送完毕! ","信息提示",MessageBoxButtons.OK)
Else
MessageBox.Show("请选择邮件类型! ","信息提示",MessageBoxButtons.OK)
End If
Else
MessageBox.Show("请选择发件箱! ","信息提示",MessageBoxButtons.OK)
End If
加好友 
发短信
Post By：2012/1/11 15:00:00 [显示全部帖子]
