Using Gmail Account to Send Emails With Attachment

Imports System.Net
Imports System.Net.Mail

Public Class frmMain
    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub BtnSend_Click(sender As System.Object, e As System.EventArgs) Handles btnSend.Click
        Dim MailFrom As MailAddress = New MailAddress("YourName@Gmail.com")
        Dim MailTo As MailAddress = New MailAddress("TheirName@Gmail.com")
        Dim NewMsg As MailMessage = New MailMessage(MailFrom, MailTo)

        NewMsg.Subject = "Test From VB.Net"
        NewMsg.Body = "Ok, Did I translate from C# to VB?"

        'For File Attachment, more files can also be attached
        Dim Att As Attachment = New Attachment("c:\\Picture.jpg")
        NewMsg.Attachments.Add(Att)
        Dim Smtp As SmtpClient = New SmtpClient("smtp.gmail.com", 587)
        Smtp.UseDefaultCredentials = False
        Smtp.Credentials = New NetworkCredential("YourName@gmail.com", "YourPassword")
        Smtp.EnableSsl = True
        Smtp.Send(NewMsg)

        '   //Alternative Short Method

        'Dim Smtp As SmtpClient = New SmtpClient("smtp.gmail.com", 587)

        'Smtp.UseDefaultCredentials = False
        'Smtp.Credentials = New NetworkCredential("username", "password")
        'Smtp.EnableSsl = True
        'Smtp.Send("sender@gamil.com", "receiver", "subject", "Email Body")

    End Sub
End Class