主题：[求助]请帮忙看看这个出错信息如何处理！！！（可以请狐爸帮忙处理一下吗？非常感谢！）

你好，这是我在论坛上下载的发送邮件的小程序，在发送单个附件时没有问题，但在需要发送多个附件时，一点确认发送则出错，请帮忙看看问题错在哪里:Dim i As Integer Dim sjr As String = e.Form.Controls("CheckedComboBox1").Value If sjr <> "" Dim m As New MailSender '邮件基本参数 Dim Parts() As String = Vars("YN2").Split(",") m.Host = Parts(1) m.Port = Parts(2) m.Account = Parts(3) m.Password = Parts(4) m.From = Parts(5) m.Title = e.Form.Controls("TextBox1").Value m.Content = e.Form.Controls("TextBox2").Value '添加收件人 Dim sjrs() As String = sjr.Split(";") If sjrs.Length = 0 m.To = sjr Else For i = 0 To sjrs.Length-1 m.AddReceiver(sjrs(i)) Next End If '添加附件 Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13)) 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() MessageBox.Show("邮件发送完毕! ","信息提示",MessageBoxButtons.OK) Else MessageBox.Show("收件人信息不完整, 请重新设置! ","信息提示",MessageBoxButtons.OK) End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:adsys(1).rar

此主题相关图片如下：截图01.png

请帮忙处理！！

求助！！！

可能事这句的问题：Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split(Chr(13))

改成这样看看：     Dim fjs() As String = e.Form.Controls("ListBox1").ComboList.Split("|")

试过了，还是不行！

我直接用真实字符串替换你的Parts(1)等，测试正常发送邮件···

此主题相关图片如下：截图02.png

试过了，问题还没有解决，请再帮忙看看！

请各位帮忙看看！

你自己看看 Vars("YN2")是什么时候赋值的，show看看其值是否是你需要的。 不知道你的整个过程如何啊····

 

在第1楼中有一个附件adsys(1).rar，下载后运行发送一下邮件，单个附件是没有问题的，但多个附件就出问题了！