Messagge Sending Fail

See more:

ASP.NET

Hi,
I am trying to send mail from asp .net.
following is the code.

Imports System.Net
Imports System.Net.Mail

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub btnSend_Click(sender As Object, e As System.EventArgs) Handles btnSend.Click
        Dim msgEmail As New MailMessage()
        Dim smtpEmail As New SmtpClient()
        Dim address As New MailAddress(TextBox1.Text.ToString)

        Try
            'Adding to address
            If Not String.IsNullOrEmpty(TextBox1.Text.ToString) Then
                msgEmail.[To].Add("target Mail id")
                msgEmail.From = address
                'Adding subject
                msgEmail.Subject = "test"
                'Adding body
                msgEmail.Body = "This is a test mail"
                'Creating object of SMTP class

                smtpEmail.Host = "smtp.gmail.com"
                smtpEmail.Port = 587
                smtpEmail.EnableSsl = True
                smtpEmail.UseDefaultCredentials = True
                smtpEmail.Credentials = New NetworkCredential(TextBox1.Text.ToString, TextBox2.Text.ToString)

                'Sending message
                smtpEmail.Send(msgEmail)

                Response.Write("<script>alert('Message sent successfully.');</script>")
            Else
                Response.Write("<script>alert('Enter To address.');</script>")
            End If
        Catch ex As Exception
            Response.Write("<script>alert('" + ex.Message + "');</script>")
        Finally
            msgEmail.Dispose()
        End Try
    End Sub

End Class

In Textbox1 and Textbox2, i am providing my username and password respectively.
But when i click on 'Send' button then Exception occurs as "Failure Sending Mail"
Can anybody please help me to solve this problem?
Thanks in advance.