sending email

Try this

        Dim link As String = "http://localhost:49509/point/activate.aspx?code=" & lblcode.Text
        mm.IsBodyHtml = True
        mm.Body = "Thanks for the Registration. To acctivate your account Please visit the link <a href = '" & link & "'>" & link & "</a>"