Browse file and attcach it to mail by visual basic

A classic task!

To browse a file and attach it to an email using Visual Basic, you can use the following steps:

Step 1: Create a new project

• Open Visual Studio and create a new project. Choose "Windows Forms Application" and name it, for example, "Email Attacher".
• Add a reference to the "Microsoft Outlook Object Library" by right-clicking on the project in the Solution Explorer, selecting "Add Reference", and then browsing to the "C:\Program Files\Microsoft Office\OfficeXX\Library" folder (where "XX" is the version of Office you have installed).

Step 2: Design the form

• Drag and drop the following controls onto the form:
  • A Button (to browse for the file)
  • A TextBox (to display the file path)
  • A Button (to send the email)
• Set the properties of the controls as follows:
  • Button1: Text = "Browse", Name = "btnBrowse"
  • TextBox1: Name = "txtFilePath"
  • Button2: Text = "Send", Name = "btnSend"

Step 3: Write the code

• Double-click on the "btnBrowse" button to create an event handler for the Click event.

• In the event handler, use the OpenFileDialog class to browse for a file and get its path:

  Private Sub btnBrowse_Click(sender As Object, e As EventArgs) Handles btnBrowse.Click
    Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "All files (*.*)|*.*"
    openFileDialog.Title = "Browse for a file"
    If openFileDialog.ShowDialog() = DialogResult.OK Then
        txtFilePath.Text = openFileDialog.FileName
    End If
  End Sub

• Double-click on the "btnSend" button to create an event handler for the Click event.

• In the event handler, use the Outlook.Application and Outlook.MailItem objects to create a new email and attach the file:

  Private Sub btnSend_Click(sender As Object, e As EventArgs) Handles btnSend.Click
    Dim outlookApp As New Outlook.Application()
    Dim mailItem As Outlook.MailItem = outlookApp.CreateItem(0) ' 0 = MailItem
    mailItem.Subject = "Test email with attachment"
    mailItem.Body = "This is a test email with an attachment."
    mailItem.Attachments.Add(txtFilePath.Text)
    mailItem.Send()
  End Sub

  Step 4: Run the project

• Run the project by pressing F5 or clicking the "Start" button.

• Click the "Browse" button to select a file, and then click the "Send" button to send the email with the attachment.

That's it! You should now have a Visual Basic project that allows you to browse for a file and attach it to an email using Outlook.