- Tạo bản quyền phần mềm C# và bảo mật code | The Enigma Protector
- [C#] Hướng dẫn giới hạn số cửa sổ ứng dụng khi chạy trên winform
- [C#] Lập trình ứng dụng lấy ngày giờ hệ thống mạng LAN sử dụng giao thức UDP
- [DATABASE] Sự khác nhau giữa hai câu lệnh TRUNCATE vs DELETE trong sqlserver
- [C#] Các cách chuyển đổi kiểu dữ liệu text String sang kiểu số Int
- [C#] Di chuyển và thay đổi kích thước Control Winform khi ứng dụng đang chạy
- [VB.NET] Chia sẻ source tạo sắp xếp đội hình bóng đá Line-ups đội bóng
- [C#] Hướng dẫn chỉnh sửa Text của label trực tiếp trên winform
- [C#] Hướng dẫn custom TextBox giống Ultraviewer trên Winform
- [C#] Show Modal Winform like Bootstrap
- [DATABASE] Thứ tự thực hiện mệnh đề truy vấn SELECT trong Sqlserver
- [C#] Hướng dẫn viết addin Excel Lấy hình ảnh từ URL internet vào Excel
- [DATABASE] TSQL view max length all column data trên table Sqlserver
- [DEVEXPRESS] Hướng dẫn sử dụng MailMerge kèm Hình ảnh trên Winform
- [DATABASE] Hướng dẫn truy vấn xem kích thước lưu trữ của từng bảng ghi Table trên sqlserver
- [C#] Hướng dẫn Fake Date Time sử dụng thư viện Harmony
- [DATABASE] Phân biệt câu lệnh DDL và DML trong sqlserver
- [C#] Hướng dẫn convert file mã HTML sang file Pdf trên winform
- [DEVEXPRESS] Tạo các loại mã vạch Barcode trực tiếp trên Devexpress Barcode API
- [DEVEXPRESS] Hướng dẫn custom Simple button thành Progressbar
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