Question

请教vb.net高手一个关于发送邮件的问题

我查询资料写了一段代码，可以批量发送邮件，但是想在每段邮件前加上发信人的姓名，请问下各位高手应该怎么做，我采用的方法是循环，但是没有成功
关键代码如下，Dim na() As String = {"miss jin", "mrs ji"}这是名字的数组
For i = 0 To 1
mail.To.Add(En(i))
mail.Body = TextBox2.Text
mail.Body = na(i) + vbCrLf + TextBox2.Text
Try
smtp.Send(mail)
MessageBox.Show("邮件发送成功！")
Catch
MessageBox.Show("邮件发送失败！")
Finally
mail.Dispose()
End Try
Next
结果发送的第一个邮箱成功，但是第二个却失败了，请大家指点一下

Answer 1

将Catch这一段改写成
Catch
MessageBox.Show("邮件发送失败：" + Exception.Message)
检查一下出错的原因。

追问

Exception.Message

是什么东西啊，为什么我写上去会报错

追答

我对VB的语法不太熟悉，正确的应该是如下表示：

Catch (e As Exception)
MessageBox.Show("邮件发送失败：" + e.Message)

Exception是VB的一个系统类型，在出现异常时产生，它的Message属性表示了产生的异常的描述。