ارسال ایمیل در Visual Basic 2010

با کد زیر میتونید از طریق smtp گوگل یک ایمیل همراه با اتچ(ضمیمه) ارسال کنید:

Dim FROM1 As New MailAddress("hellas2012@yahoo.com")
        Dim RECIVER As New MailAddress("novincontrol@gmail.com")
        Dim MY_EMAIL As New MailMessage(FROM1, RECIVER)
        MY_EMAIL.Subject = "THIS IS A TEST 4"
        MY_EMAIL.Body = " HI, This Email Sent With VB.NET 2005"
        Dim MY_ATTACH As New Attachment("c:\gg.txt")
        MY_EMAIL.Attachments.Add(MY_ATTACH)
        Dim SmtpMail As New SmtpClient
        SmtpMail.Host = "smtp.gmail.com"
        SmtpMail.EnableSsl = True
        Dim theCredential As New System.Net.NetworkCredential("novincontrol@gmail.com", "pass")
        SmtpMail.Credentials = theCredential
        SmtpMail.Send(MY_EMAIL)