65.9K
CodeProject is changing. Read more.
Home

Using Gmail Account to Send Emails With Attachment

starIconstarIconstarIconstarIcon
emptyStarIcon
starIcon

4.75/5 (4 votes)

Mar 31, 2011

CPOL
viewsIcon

15164

Man, that works great! I just converted it to VB.NET and also showed the Imports/Using that was needed, thanks to David's alternate. This was just what I was looking for, Thanks Abdur.Imports System.NetImports System.Net.MailPublic Class frmMain Private Sub frmMain_Load(sender As...

Man, that works great! I just converted it to VB.NET and also showed the Imports/Using that was needed, thanks to David's alternate. This was just what I was looking for, Thanks Abdur.
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