Sending Email in VB2005

အီးမေး ပို့တဲ့ ပရိုဂရမ်လေးကို VB2005 နဲ့ နမူနာရေးကြည့်ထားတာပါ။ ဒီနမူနာမှာ gmail ကိုသုံးထားတဲ့အတွက် စမ်းကြည့်ဖို့အတွက် gmail account တစ်ခုတော့လိုပါလိမ့်မယ်။

---------------------------------------------------

Imports System.Net.Mail
Public Sub SendMail()
    Dim mail As New MailMessage()
    'set the addresses
    mail.From = New MailAddress("yourname@gmail.com")
    mail.To.Add("DestinationAddress@gmail.com")
    'set the content
    mail.Subject = "Sample Subject"
    mail.Body = "This is a body"
    'send the message
    Dim smtp As New SmtpClient("smtp.gmail.com", 587)
    smtp.Credentials = New System.Net.NetworkCredential("yourname@gmail.com", "yourpassword")
    smtp.EnableSsl = True
    Try
        smtp.Send(mail)
    Catch ex As Exception
        MsgBox(ex.ToString())
    End Try
End Sub

---------------------------------------------------