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

[hoangthu1974]

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

[clarkkent]

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

[hoangthu1974]

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

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

[PhapSuXeko]

Còn Zing mail thì sao hả anh

[hoangthu1974]

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ì.

[PhapSuXeko]

hình như là ko

[clarkkent]

hình như là ko

hình như là được

[itcantho]

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

[bocapit]

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

Mã: [Chọn hết] [Mở rộng/Thu hẹp] [Tải về]

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.  

GeSHi © Codebox Plus

Coi hình

Untitled.png (27.24 KiB) Đã xem 4024 lần

Đây là code vs 2010 nha

SendMail.rar

(47.26 KiB) Đã tải 811 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!!