Start New Discussion within our Software Development Community

Please help, it keeps on showing the exception msg "Failed" the message send never work

Imports System.Net.Mail
Imports System.Net.CredentialCache
Public Class Sendmail

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
        MsgBox("Please fill up all required fields")
    Else


        Dim Mail As New MailMessage
        Mail = New MailMessage()
        Mail.Subject = "EPOST OFFICE"
        Mail.To.Add(TextBox2.Text)
        Mail.From = New MailAddress(TextBox3.Text)
        Mail.Body = TextBox1.Text

        Dim Smtp As New SmtpClient
        Smtp.Host = "Smtp.gmail.com"
        Smtp.Port = 587
        Smtp.EnableSsl = True
        Smtp.Credentials = New System.Net.NetworkCredential(TextBox3.Text, TextBox4.Text)

        Try
            Smtp.Send(Mail)
            MsgBox("Successfully")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
        Catch ex As Exception
            MsgBox("failed")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
        End Try
    End If
End Sub

hi, your code works perfectly
-check your typing
-account exist
-correct password
-gmail account

This question has already been answered. Start a new discussion instead.