• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Gửi e-mail bằng VB.NET

Các thủ thuật về hệ thống, thư mục, tập tin và mạng

Điều hành viên: tungcan5diop, QUANITGROBEST

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Gửi e-mail bằng VB.NET

Gửi bàigửi bởi hoangthu1974 » T.Bảy 13/06/2009 8:44 am

Thủ thuật: Gửi e-mail bằng VB.NET
Tác giả: Sưu tầm
Mô tả: Gửi e-mail bằng VB.NET


Mã: Chọn hết

  1.    Public Shared Function SendMail(ByVal strTo As String, ByVal strCC As String, ByVal strFrom As String, _
  2.                                     ByVal strFromName As String, ByVal strSubject As String, ByVal strBody As String) As String
  3.         Try
  4.             Dim Msg As MailMessage = New MailMessage()
  5.             Dim MailObj As New SmtpClient("smpt mail server")
  6.             Msg.To.Add(New MailAddress(strTo))
  7.             If strCC <> "" Then
  8.                 Msg.CC.Add(New MailAddress(strCC))
  9.             End If
  10.             Msg.From = New MailAddress(strFrom, strFromName)
  11.  
  12.             Msg.Subject = strSubject
  13.             Msg.Body = strBody
  14.             Msg.IsBodyHtml = "True" 'Định dạng nội dung thư theo html
  15.             MailObj.Credentials = New System.Net.NetworkCredential("user name", "password")
  16.             MailObj.Send(Msg)
  17.         Catch ex As Exception
  18.         End Try
  19.     End Function



Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi clarkkent » T.Bảy 13/06/2009 10:59 am

Anh có thể cho vài ví dụ smpt mail server phổ biến được hok. e ko rành vụ này lắm :D
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi hoangthu1974 » T.Bảy 13/06/2009 12:33 pm

clarkkent đã viết:Anh có thể cho vài ví dụ smpt mail server phổ biến được hok. e ko rành vụ này lắm :D

Cái này nó dùng System.Net.Mail nữa, reference cho nó hoặc Imports System.Net.Mail.

smtp mail server: smtp.vnn.vn, smtp.gmail.com tùy theo cấu hình của máy chủ.
Ví dụ gửi bằng pop3 của gmail thì đặt như sau:
smtp mail server: smtp.mail.com
User Name: gmail_account@gmail.com
Password = Your password

Nhớ phải bật POP3 của Gmail lên nhé. Tham khảo thêm: Định cấu hình ứng dụng thư khách khác

Hình đại diện của người dùng
PhapSuXeko
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 295
Ngày tham gia: CN 03/05/2009 7:44 pm
Đến từ: Tây Ninh
Has thanked: 1 time
Been thanked: 10 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi PhapSuXeko » T.Sáu 31/07/2009 10:24 am

Còn Zing mail thì sao hả anh
Trang chủ phần mềm xem ảnh ImageGlass: http://www.imageglass.org

Hình đại diện của người dùng
hoangthu1974
Guru
Guru
Bài viết: 812
Ngày tham gia: T.Năm 09/03/2006 9:30 am
Đến từ: Hà Nội --> Tp. Hồ Chí Minh
Been thanked: 13 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi hoangthu1974 » T.Sáu 31/07/2009 11:04 am

PhapSuXeko đã viết:Còn Zing mail thì sao hả anh

Hỏi xem tụi nó có hỗ trợ POP không? Nếu có thì máy chủ POP là gì.

Hình đại diện của người dùng
PhapSuXeko
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 295
Ngày tham gia: CN 03/05/2009 7:44 pm
Đến từ: Tây Ninh
Has thanked: 1 time
Been thanked: 10 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi PhapSuXeko » T.Ba 04/08/2009 8:44 am

hình như là ko
Trang chủ phần mềm xem ảnh ImageGlass: http://www.imageglass.org

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi clarkkent » T.Ba 04/08/2009 8:49 am

PhapSuXeko đã viết:hình như là ko

hình như là được :-/
Hình ảnh
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

itcantho
Bài viết: 3
Ngày tham gia: T.Sáu 25/03/2011 8:07 pm

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi itcantho » T.Bảy 03/09/2011 12:35 pm

Có bạn nào thực hiện gửi mail từ vnn.vn (cấu hình nhưng mail từ outlook không vấn đề) không vậy các bạn? (vì nếu với code trên áp dụng gửi gmail thì được nhưng nếu dùng vnn.vn thì không.) mong các bạn giúp dùm

Hình đại diện của người dùng
bocapit
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 393
Ngày tham gia: T.Năm 02/10/2008 6:34 am
Đến từ: C:\Program Files (x86)\Microsoft Visual Studio 11.0\Common7\IDE\
Has thanked: 1 time
Been thanked: 44 time

Re: Gửi e-mail bằng VB.NET

Gửi bàigửi bởi bocapit » T.Bảy 03/09/2011 11:50 pm

itcantho đã viết:Có bạn nào thực hiện gửi mail từ vnn.vn (cấu hình nhưng mail từ outlook không vấn đề) không vậy các bạn? (vì nếu với code trên áp dụng gửi gmail thì được nhưng nếu dùng vnn.vn thì không.) mong các bạn giúp dùm

Cái nào củng giống nhau thôi, khác nhau mỗi thông số, nguyên tắc hoạt động như nhau
  1.  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
  2.         Me.Cursor = Cursors.WaitCursor
  3.         Me.Text = "Đang gởi mail ...."
  4.         Dim MyMailMessage As New MailMessage()
  5.         MyMailMessage.From = New MailAddress(txtGoi.Text.ToString)
  6.         MyMailMessage.To.Add(txtNhan.Text.ToString)
  7.         MyMailMessage.Subject = txtTieuDe.Text.ToString
  8.         MyMailMessage.Body = txtBody.Text.ToString
  9.         Dim SMTPServer As New SmtpClient(txtSmtp.Text.ToString.Trim)
  10.         SMTPServer.Port = txtPort.Text
  11.         SMTPServer.Credentials = New System.Net.NetworkCredential(txtLogin.Text.ToString.Trim, txtPass.Text.ToString.Trim)
  12.         'SMTPServer.EnableSsl = True
  13.         ' SMTPServer.Credentials = CredentialCache.DefaultNetworkCredentials
  14.  
  15.         Try
  16.             SMTPServer.Send(MyMailMessage)
  17.             MessageBox.Show("Đã gởi mail thành công đến " & txtNhan.Text)
  18.             Me.Cursor = Cursors.Arrow
  19.             Me.Text = "Đã gởi xong"
  20.         Catch ex As SmtpException
  21.             MessageBox.Show(ex.Message)
  22.             Me.Cursor = Cursors.Arrow
  23.             Me.Text = "Không gởi dc mail"
  24.         End Try
  25.     End Sub
  26.  


Coi hình
Untitled.png
Untitled.png (27.24 KiB) Đã xem 3581 lần


Đây là code vs 2010 nha
SendMail.rar
(47.26 KiB) Đã tải 773 lần


Lưu ý vnn.vn không cho mạo danh nha! tức là thư người gởi với đăng nhập phải giống nhau như hình

p/s: vửa support một thành viên, tiện có người hỏi nên trả lời lun!!


Quay về “[.NET] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách