ChattChitto

Code: Select all

An unhandled exception of type 'System.Net.Mail.SmtpException' occurred in System.dll

Additional information: Failure sending mail.

Code: Select all

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox10.Text = 2 Then
            MsgBox("Correct Answer!", MsgBoxStyle.Exclamation, "Correct")
            Button1.Enabled = True
        Else
            MsgBox("Answer is Incorrect please try again!", MsgBoxStyle.Critical, "Error")
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mail As New MailMessage
        Mail.Subject = "DJ Application"
        Mail.To.Add("RServersAdm[MENTION=95245]LiVe[/MENTION].com")
        Mail.From = New MailAddress(TextBox2.Text)
        Mail.Body = "---------------------------" +
            "Start Application" +
            "---------------------------" +
            "Name: " + TextBox1.Text +
            "Email:" + TextBox2.Text +
            "Age:" + TextBox3.Text +
            "Gender" + TextBox11.Text +
            "State:" + TextBox4.Text +
            "Country:" + TextBox5.Text +
            "---------------------------" +
            "Music" +
            "---------------------------" +
            "Good Music Selection?" + TextBox6.Text +
            "What's Your Favorite Genre?" + TextBox12.Text +
            "---------------------------" +
            "Broadcasters" +
            "---------------------------" +
            "Virtual DJ?: " + TextBox7.Text +
            "Sam Broadcaster?: " + TextBox8.Text +
            "---------------------------" +
            "Remote Support" +
            "---------------------------" +
            "Team Viewer?: " + TextBox9.Text +
            "---------------------------" +
            "End Application" +
            "---------------------------"

        Dim SMTP As New SmtpClient("pop3.live.com")
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential("RServersADM[MENTION=95245]LiVe[/MENTION].com", "*MY PASSWORD*")
        SMTP.Port = "587"
        SMTP.Send(Mail)
        MsgBox("Thank You For Submiting Your Application!", MsgBoxStyle.Exclamation, "Correct")
    End Sub