- [DEVEXPRESS] Hướng dẫn bật tính năng Scroll Pixcel in Touch trên GridView
- [DEVEXPRESS] Hướng dẫn sử dụng TileBar viết ứng dụng duyệt hình ảnh Winform
- [DEVEXPRESS] Tô màu border TextEdit trên Winform
- [C#] Lấy dữ liệu từ Console Write hiển thị lên textbox Winform
- [C#] Hiển thị Progress bar trên Window Console
- [C#] Di chuyển control Runtime và lưu layout trên winform
- [SQLSERVER] Sử dụng hàm NULL IF
- [C#] Chia sẽ source code mã đi tuần bằng giao diện Winform
- [C#] Flash Window in Taskbar Winform
- Download và Giải nén tập tin File sử dụng Powershell
- [C#] Hướng dẫn cách lấy thông tin đăng nhập tài khoản và mật khẩu web browser trên windows
- [VB.NET] CRUD Thêm xóa sửa tìm kiếm Realtime FireBase
- [C#] Hiển thị thông báo Toast Message trong lập trình Winform
- [C#] Cấu hình định dạng ngày tháng, thời gian trên Windows cho ứng dụng Winform
- [C#] Rút gọn đường dẫn link url với TinyURL API
- [C#] Hướng dẫn cách bo tròn winform with Radius
- [C#] Chia sẽ class BackGroundOverlay Show Modal cho Winform
- [C#] Hướng dẫn Flip Image Winform
- [C#] Invoke là gì? cách sử dụng phương thức Invoke()
- [C#] Hướng dẫn chia sẽ file, folder từ ứng dụng sang Zalo Chat
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