Send Email With attachment

Send Email With attachment

Imports System.Net.Mail
Imports System.Net

Public Class Mailss
    Dim oMsg As Mail.MailMessage = New MailMessage()
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            TextBox6.Visible = True
        Else
            TextBox6.Visible = False
        End If
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Title = "Please select a file"
        OpenFileDialog1.InitialDirectory = "C:"
        OpenFileDialog1.Filter = "All files (*.*)|*.*"
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Dim wordFileName As String = OpenFileDialog1.FileName
            TextBox6.Text = wordFileName
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Mail As New MailMessage
        If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "") Then
            MsgBox("Please enter a valid e-mail")
        Else
            Mail.Subject = TextBox5.Text
            Mail.To.Add(TextBox3.Text)
            Mail.From = New MailAddress(TextBox3.Text)
            Mail.Body = TextBox4.Text
            Dim oAttch As Mail.Attachment = New Mail.Attachment(TextBox6.Text)
            Mail.Attachments.Add(oAttch)
            Dim smtp As New SmtpClient("Smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
            smtp.Port = "587"
            smtp.Send(Mail)
            Label6.Visible = True
            Timer1.Enabled = True
        End If
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
    End Sub
End Class