.NET2005中如何实现发送和接收邮件?
     Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim mfrom As String
        Dim mto As String
        Dim msub As String
        Dim mbody As String
        Dim smt As String
        mfrom = mailFrom.Text
        mto = mailTo.Text
        msub = mailSubject.Text
        mbody = mailBody.Text
        smt = mailsmtp.Text
        Dim smtp_host As SmtpClient = New SmtpClient(smt, 25)
        Dim mail_body As MailMessage = New MailMessage(mfrom, mto, msub, mbody)
        mail_body.BodyEncoding = Encoding.Unicode
        On Error Resume Next
        smtp_host.Send(mail_body)
        If Err.Number <> 0 Then
            Msg.Text = Err.Description
        Else
            Msg.Text = "邮件已经成功发送"
        End If
    End Sub这段代码有什么错误吗?为什么邮件发不出去?请帮忙指出
我现在是新手,没有积分,请大家帮忙