[VISUAL BASIC] Source code send mail

Hi mọi người, bài viết hôm nay mình sẽ hướng dẫn các bạn viết một chương trình gửi email đơn giản để người dùng có thể viết chương trình liên hệ (contact) đơn giản và tuỳ chỉnh theo sỡ thích của bản thân nhé.

Và ở đây mình viết chương trình gửi hỗ trợ cho tài khoản google thôi nhé, còn bạn muốn gửi email về địa chỉ khác thì bạn cần phải tìm có thông tin SMTP và PORT để nhận email bạn nhé.

DEMO ỨNG DỤNG

Mọi người lưu ý nhớ import thư viện bên dưới vào nhé.

Imports System.Net.Mail

FULL SOURCE CODE.

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

Chúc mọi người thành công với thủ thuật trên. Để tạo cho mình một chương trình hỗ trợ người dùng tốt nhất nhé.

Theo LapTrinhVB.Net