asp.net 2.0 中发送邮件

 Private Const FromEmail As String = "YouMail@163.com"
    Private Const EmailPwd As String = "CDC2E24723F16F1D54F2E54B374ACE40"


    Public Function SendEmail()Function SendEmail(ByVal ToEmail As String, ByVal Subject As String, ByVal Body As String) As Boolean
      Dim Mail As MailMessage
      Dim SmtpClient As New SmtpClient()
      Try
        Mail = New MailMessage(FromEmail, ToEmail, Subject, Body)

        '   SmtpClient.EnableSsl = True '是否使用安全套接字层 (SSL) 加密连接。 
        SmtpClient.Host = "smtp.163.com"
        SmtpClient.Port = 25
        SmtpClient.Credentials = New Net.NetworkCredential(FromEmail, EmailPwd) '提供用于检索主机、端口或身份验证类型的凭据的接口。 
        SmtpClient.Send(Mail)
        Return True
      Catch ex As Exception
        Throw ex
      Finally


      End Try