老师，在发送邮件时报错。
此主题相关图片如下：图像 2.png
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
加好友 
发短信
Post By：2017/6/17 22:31:00 [显示全部帖子]
