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
3 comments:
MỌI NGƯỜI ÁP DỤNG CHO BLOG NHÉ, VÀ LƯU Ý KHI SỮ DỤNG BỘ CODE PHÍA TRÊN THÌ SẼ CÓ THÔNG BAO VIRUS NHÉ MỌI NGƯỜI. (MỌI NGƯỜI NÊN TUỲ CHỌN VÀ TUỲ BIẾN THEO KHẢ NĂNG CỦA BẢN THÂN ĐỂ TRÁNH CHƯƠNG TRÌNH DIỆT VIRUS ĐÁNH DẤU NHẦM)
Không phải thủ thuật này e chia sẽ rồi sao?
source code này a biết có lâu rồi, nhưng import k đúng file hệ thống thì cũng k làm gì đc cả, mà cập nhật phiên bản mới đi e, xem có gì thay đổi k?
Post a Comment