[TuToRiAl] Add Attachments to your Email Sender in VB

[TuToRiAl] Add Attachments to your Email Sender in VB - Printable Version

+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: [TuToRiAl] Add Attachments to your Email Sender in VB (/showthread.php?tid=12828)

[TuToRiAl] Add Attachments to your Email Sender in VB - Resistance - 10-17-2010

Hello guys, Welcome to my 200th post!!! Big Grin

Woot Woot

!

Today you will learn how to add file attachments to your VB emailing program with multiple select. Really great feature but you must be cautious of file scanner for if it is filtered through Gmails servers such as an .exe, it will be blocked without notification.

If you want to know how to make an email sender to use attachments, then Click Here

Now to get started on features:

Add 1 Button
Add 1 OpenFileDialog
Add Up to 3 TextBoxes for 3 Attachments. More Textboxes, More Attachments which may result in a slow emailing. Also make the textboxes all ReadOnly = True
Add 3 Labels, More Labels for more attachments. Label them Attachment 1 - 3.

Next, the code. First off, the button.

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        file = Nothing

        OpenFileDialog1.ShowDialog()

        file = OpenFileDialog1.FileNames()

        Try

        TextBox1.Text = file(0)

        Catch ex As IndexOutOfRangeException

        EndTry

        Try

            TextBox6.Text = file(1)

        Catch ex As IndexOutOfRangeException

        End Try

        Try

            TextBox7.Text = file(2)

        Catch ex As IndexOutOfRangeException

        End Try 'All this code is for adding multiple files in one shot with Try statements.

    End Sub

Next, somewhere in the middle of the code for emailing, beginning is most preferred, paste this:

Code:
If Not TextBox1.Text = Nothing Then

                Dim attach As New Attachment(TextBox1.Text)

                MyMailMessage.Attachments.Add(attach)

            End If

            If Not TextBox2.Text = Nothing Then

                Dim attach As New Attachment(TextBox2.Text)

                MyMailMessage.Attachments.Add(attach)

            End If

            If Not TextBox3.Text = Nothing Then

                Dim attach As New Attachment(TextBox3.Text)

                MyMailMessage.Attachments.Add(attach)

            End If

This code scans for the attachments if they are there or not.

Next we need to code the OpenFileDialog1.

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

        OpenFileDialog1.DefaultExt = "C:\Users\%USERNAME%\"

        OpenFileDialog1.Title = "Select File(s) to Attach"

        OpenFileDialog1.FileName = "Select Files..."

        OpenFileDialog1.MultiSelect = True

    End Sub

Wahhhhhhhhhlllllllllllllllllllaaaaaaaaaaaaaaaaa We are done. Now select multiple files from the dialog and your good!