Imports System.Web.mail
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    ' Variable which will send the mail
    Dim obj As System.Web.Mail.SmtpMail
 
    'Variable to store the attachments 
    Dim Attachment As System.Web.Mail.MailAttachment
 
    'Variable to create the message to send
    Dim Mailmsg As New System.Web.Mail.MailMessage
 
    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        'Show open dialogue box to select the files to attach
        Dim Counter As Integer
        OFD.CheckFileExists = True
        OFD.Title = "Select file(s) to attach"
        OFD.ShowDialog()
 
        For Counter = 0 To UBound(OFD.FileNames)
            lstAttachment.Items.Add(OFD.FileNames(Counter))
        Next
    End Sub
 
    Private Sub BtnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRemove.Click
        'Remove the attachments
        If lstAttachment.SelectedIndex > -1 Then
            lstAttachment.Items.RemoveAt(lstAttachment.SelectedIndex)
        End If
    End Sub
 
    Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Dim Counter As Integer
 
        Try
            'Validate the data
            If txtSMTPServer.Text = "" Then
                MsgBox("Enter the SMTP server info ...!!!", MsgBoxStyle.Information, "Send Email")
                Exit Sub
            End If
 
            If txtFrom.Text = "" Then
                MsgBox("Enter the From email address ...!!!", MsgBoxStyle.Information, "Send Email")
                Exit Sub
            End If
 
            If txtTo.Text = "" Then
                MsgBox("Enter the Recipient email address ...!!!", MsgBoxStyle.Information, "Send Email")
                Exit Sub
            End If
 
            If txtSubject.Text = "" Then
                MsgBox("Enter the Email subject ...!!!", MsgBoxStyle.Information, "Send Email")
                Exit Sub
            End If
 
            'Set the properties
            'Assign the SMTP server
            obj.SmtpServer = txtSMTPServer.Text
            'Multiple recepients can be specified using ; as the delimeter
            'Address of the recipient
            Mailmsg.To = txtTo.Text
 
 
            'Your From Address
            'You can also use a custom header Reply-To for a different replyto address
            Mailmsg.From = "\" & txtFromDisplayName.Text & "\ <" & txtFrom.Text & ">"
 
 
            'Specify the body format
            If chkFormat.Checked = True Then
                Mailmsg.BodyFormat = MailFormat.Html   'Send the mail in HTML Format
            Else
                Mailmsg.BodyFormat = MailFormat.Text
            End If
 
            'If you want you can add a reply to header 
            'Mailmsg.Headers.Add("Reply-To", "Manoj@geinetech.net")
            'custom headersare added like this
            'Mailmsg.Headers.Add("Manoj", "TestHeader")
 
            'Mail Subject
            Mailmsg.Subject = txtSubject.Text
 
            'Attach the files one by one
            For Counter = 0 To lstAttachment.Items.Count - 1
                Attachment = New MailAttachment(lstAttachment.Items(Counter))
                'Add it to the mail message
                Mailmsg.Attachments.Add(Attachment)
            Next
 
            'Mail Body
            Mailmsg.Body = txtMessage.Text
            'Call the send method to send the mail
            obj.Send(Mailmsg)
            MsgBox("Send Complete!")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
 
End Class