Function sendEmail() As Boolean
        Dim runOK As Boolean = False
        Dim strBodyText As String = "尊敬的用户:" & "<br>" & _
                                    "欢迎您注册杭州市房屋安全管理网!" & "<br>" & "<br>" & _
                                    "您的用户名为 " & txtName.Text & "<br>" & _
                                    "您的密码为 " & newPass & "<br>" & "<br>" & _
                                    "登陆地址为 <a href=""http://www.vbsky.org/bbs"">www.vbsky.org/bbs</a>" & "<br>" & _
                                    "可在:控制面板->密码修改,下修改您的密码" & "<br>" & _
                                    "请在7天内完成首次登陆,谢谢!" & "<br>" & "<br>" & _
                                    "                         致" & "<br>" & _
                                    "  礼!" & "<br>" & _
                                  "                " & Now.ToString        strBodyText = ConVertString(strBodyText)
        Dim message As New System.Net.Mail.MailMessage("[email protected]", txtEmail.Text, "VB.NET专题网注册信息", strBodyText)
        message.SubjectEncoding = Encoding.GetEncoding("gb2312")
        message.BodyEncoding = Encoding.GetEncoding("gb2312")
        Dim mailClient As New System.Net.Mail.SmtpClient("mail.sohu.com")
        mailClient.Credentials = New System.Net.NetworkCredential("[email protected]", "241057113")
        mailClient.DeliveryMethod = SmtpDeliveryMethod.Network
        message.IsBodyHtml = True
        Try
            mailClient.Send(message)
            lbMsg.Text = "sendok"
            runOK = True
        Catch ex As System.Net.Mail.SmtpException            lbMsg.Text = ex.Message
        End Try
        Return runOK
    End Function他说这个东西没定义,我该怎么定义哈:
strBodyText = ConVertString(strBodyText) 里的ConVertString