Cách gởi email tự động trong VB

Hôm nay, mình xin hướng dẫn các bạn, cách gởi mail tự động bằng cách sử dụng gmail. Để gởi được email ta cần có một tài khoản mail, ví dụ dưới đây ta sử dụng email của google, với smtp server smtp.gmail.com và sử dụng port 587.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
        Me.Cursor = Cursors.WaitCursor
        Me.Text = "Đang gởi mail ...."
        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(txtGoi.Text.ToString)
        MyMailMessage.To.Add(txtNhan.Text.ToString)
        MyMailMessage.Subject = txtTieuDe.Text.ToString
        MyMailMessage.Body = txtBody.Text.ToString
        Dim SMTPServer As New SmtpClient(txtSmtp.Text.ToString.Trim)
        SMTPServer.Port = txtPort.Text
        SMTPServer.Credentials = New System.Net.NetworkCredential(txtLogin.Text.ToString.Trim, txtPass.Text.ToString.Trim)
        SMTPServer.EnableSsl = True
        Try
            SMTPServer.Send(MyMailMessage)
            MessageBox.Show("Đã gởi mail thành công đến " & txtNhan.Text)
            Me.Cursor = Cursors.Arrow
            Me.Text = "Đã gởi xong"
        Catch ex As SmtpException
            MessageBox.Show(ex.Message)
            Me.Cursor = Cursors.Arrow
            Me.Text = "Không gởi được mail"
        End Try
 End Sub

Các bạn nhớ import thư viện:

Imports System.Net.Mail

Download Project