Imports System.Net.Mail


Public Class Form1
    Dim emailaddress As String
    Dim password As String
    Dim port As Integer
    Dim host As String
    Public Property Multiselect As Boolean
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If max.Text = "" Then
            Timer1.Start()
        Else
            Me.Timer1.Interval = max.Text
            Me.Timer1.Enabled = True
        End If
        If sender.Text.Length = 0 Then Timer1.Stop()
        sent.Text = 0



    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        emailaddress = usernamebox.Text
        password = passwordbox.Text
        If emailaddress.ToLower.Contains("@hotmail") Or emailaddress.ToLower.Contains("@live") Or emailaddress.ToLower.Contains("@msn") Then
            port = 587
            host = "Smtp.live.com"
        ElseIf emailaddress.ToLower.Contains("@gmail") Then
            port = 587
            host = "smtp.gmail.com"
        ElseIf emailaddress.ToLower.Contains("@aol") Then
            port = 587
            host = "smtp.aol.co.uk"
        ElseIf emailaddress.ToLower.Contains("@yahoo") Then
            port = 465
            host = "smtp.mail.yahoo.com"
        End If
        Dim MyMailMessage As New MailMessage()

        Dim SMTPServer As New SmtpClient

        MyMailMessage.From = New MailAddress(emailaddress)
        MyMailMessage.To.Add(tobox.Text)

        MyMailMessage.Subject = (subjectbox.Text)

        MyMailMessage.Body = messagebox.Text

        If Not Browse.Text = Nothing Then
            Dim attach As Net.Mail.Attachment = New Net.Mail.Attachment(Browse.Text)
            MyMailMessage.Attachments.Add(attach)
        End If

        SMTPServer.Port = port
        SMTPServer.Host = host

        SMTPServer.EnableSsl = True

        SMTPServer.Credentials = New System.Net.NetworkCredential(emailaddress, password)


        Try
            sent.Text = Val(sent.Text + 1)
            SMTPServer.Send(MyMailMessage)
            If sent.Text = max.Text Then Timer1.Stop()
        Catch exc As Net.Mail.SmtpException
            Timer1.Stop()
            sent.Text = 0
            MsgBox("Check Your password, Your Email and To Email! Read 'Help and Info' for Details")

        End Try
        If email.Checked = True Then
            My.Settings.username = usernamebox.Text
            My.Settings.Save()
            My.Settings.Reload()
        End If
        If pass.Checked = True Then
            My.Settings.password = passwordbox.Text
            My.Settings.Save()
            My.Settings.Reload()
        End If

    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim file As String
        Me.OpenFileDialog1.Multiselect = True
        Me.OpenFileDialog1.Title = "Browse Attachments..."
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            For Each file In OpenFileDialog1.FileNames
                browse.Items.Add(file)
            Next
        End If


    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        usernamebox.Text = My.Settings.username
        passwordbox.Text = My.Settings.password


    End Sub
    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
        My.Settings.password = passwordbox.Text
        My.Settings.Reset()
        My.Settings.Reload()
        My.Settings.username = usernamebox.Text
        My.Settings.Reset()
        My.Settings.Reload()
        usernamebox.Text = Nothing
        passwordbox.Text = Nothing
    End Sub
    Private Sub clearall_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearall.Click
        Dim tbox As Control
        For Each tbox In Me.Controls
            If TypeOf tbox Is TextBox Then
                tbox.Text = Nothing
            End If
        Next
        sent.Text = 0
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Form3.Show()
    End Sub
    Private Sub passwordbox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
    passwordbox.Validating ' enz....

        If sender.Text.Length = 0 Then

            e.Cancel = False
            sender.Select(0, sender.Text.Length)
            ErrorProvider1.SetError(sender, "necessary input!")

        Else
            ' everything is ok
            ErrorProvider1.SetError(sender, "")

        End If

    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub
    Private Sub usernamebox_Validating(ByVal sender1 As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
   usernamebox.Validating ' enz....

        If InStr(1, sender1.text, "@hotmail") Or InStr(1, sender1.text, "@gmail") Or InStr(1, sender1.text, "@live") Or InStr(1, sender1.text, "@yahoo") Or InStr(1, sender1.text, "@aol") Or InStr(1, sender1.text, "@msn") Then

            'everything is ok
            ErrorProvider1.SetError(sender1, "")
        Else
            e.Cancel = False
            ErrorProvider1.SetError(sender1, "Check This! Read 'Help and info' for more info!")
        End If
    End Sub
    Private Sub tobox_Validating(ByVal sender2 As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles _
    tobox.Validating ' enz....

        If InStr(1, sender2.text, "@") Then
            ErrorProvider1.SetError(sender2, "")
        Else
            e.Cancel = False
            ErrorProvider1.SetError(sender2, "Check This! Read 'Help and info' for more info!")
        End If

    End Sub

    Private Sub browse_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browse.SelectedIndexChanged
        While browse.SelectedItems.Count > 0
            browse.Items.Remove(browse.SelectedItem)
        End While
    End Sub
End Class