Imports System.Net.Mail
Public Class Form2
    Private Sub ThirteenButton1_Click(sender As Object, e As EventArgs) Handles ThirteenButton1.Click

        End

    End Sub

    Private Sub ThirteenButton2_Click(sender As Object, e As EventArgs) Handles ThirteenButton2.Click

        If ThirteenTextBox1.Text = "" Or ThirteenTextBox2.Text = "" Then

            MessageBox.Show("There is no body or subject!")

        Else

            Dim EmailMessage As New MailMessage()
            Try
                EmailMessage.From = New MailAddress("personalbotemail@gmail.com")
                If Not ThirteenTextBox3.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox3.Text)
                End If

                If Not ThirteenTextBox4.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox4.Text)
                End If

                If Not ThirteenTextBox5.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox5.Text)
                End If

                If Not ThirteenTextBox6.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox6.Text)
                End If

                If Not ThirteenTextBox7.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox7.Text)
                End If

                If Not ThirteenTextBox8.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox8.Text)
                End If

                If Not ThirteenTextBox9.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox9.Text)
                End If

                If Not ThirteenTextBox10.Text = "" Then
                    EmailMessage.To.Add(ThirteenTextBox10.Text)
                End If
                EmailMessage.Subject = ThirteenTextBox1.Text
                EmailMessage.Body = ThirteenTextBox2.Text
                Dim SMTP As New SmtpClient("smtp.gmail.com")
                SMTP.Port = 587
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("personalbotemail@gmail.com", "Removed Password")
                SMTP.Send(EmailMessage)
            Catch ex As Exception

            End Try

        End If

    End Sub

    Private Sub ThirteenButton4_Click(sender As Object, e As EventArgs) Handles ThirteenButton4.Click

        Form1.Show()
        Me.Close()

    End Sub

    Private Sub ThirteenForm1_Click(sender As Object, e As EventArgs) Handles ThirteenForm1.Click

    End Sub
End Class