你好，这是我在论坛上下载的发送邮件的小程序，在发送单个附件时没有问题，但在需要发送多个附件时，一点确认发送则出错，请帮忙看看问题错在哪里: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
此主题相关图片如下：截图01.png
[此贴子已经被作者于2012-1-9 13:13:44编辑过]
加好友 
发短信
Post By：2012/1/6 10:49:00 [显示全部帖子]
Post By：2012/1/9 12:45:00 [显示全部帖子]
