Imports System.Net.Mail
Imports System.Net.Mime
Module Module1

    Sub Main()
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient()
        SmtpServer.Credentials = New Net.NetworkCredential("yourGmail@gmail.com", "yourPassword")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True

        Try
            mail.From = New MailAddress("yourGmail@gmail.com", "your name")
            mail.To.Add("receiver@hotmail.com")
            mail.Subject = "Arab Team Gmail Sender Test"
            mail.Body = "This e-mail is a test for the :(Arab Team Gmail Sender code)"
            mail.IsBodyHtml = True 'Change it as you need
            mail.Attachments.Add(New Attachment("C:\pic1.bmp")) 'The path of the file to be attached
            mail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure

            SmtpServer.Send(mail)
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

End Module
