การทำระบบ Forgot Password โดยส่งรหัสผ่านไปทางอีเมล

            Dim myMail As New MailMessage()
            myMail.To = dtReader("Email").ToString()
            myMail.From = "[email protected]"
            myMail.Subject = "Account Username & Password"

            myMail.BodyFormat = MailFormat.Html
            myMail.Body = "Username = " & dtReader("Username").ToString() & "" & _
            "<br> Password = " & dtReader("Password").ToString()

            'SmtpMail.SmtpServer = "192.168.0.1"  '*** Mail Server ***'
            SmtpMail.Send(myMail)
            myMail = Nothing

            Me.lblMessage.Text = "Your password has been send to mail (" & dtReader("Email").ToString() & ")"