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

你好，这是我在论坛上下载的发送邮件的小程序，在发送单个附件时没有问题，但在需要发送多个附件时，一点确认发送则出错，请帮忙看看问题错在哪里: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