Tác giả: Sưu tầm
Mô tả: Gửi e-mail bằng VB.NET
Mã: Chọn hết
- Public Shared Function SendMail(ByVal strTo As String, ByVal strCC As String, ByVal strFrom As String, _
- ByVal strFromName As String, ByVal strSubject As String, ByVal strBody As String) As String
- Try
- Dim Msg As MailMessage = New MailMessage()
- Dim MailObj As New SmtpClient("smpt mail server")
- Msg.To.Add(New MailAddress(strTo))
- If strCC <> "" Then
- Msg.CC.Add(New MailAddress(strCC))
- End If
- Msg.From = New MailAddress(strFrom, strFromName)
-
- Msg.Subject = strSubject
- Msg.Body = strBody
- Msg.IsBodyHtml = "True" 'Định dạng nội dung thư theo html
- MailObj.Credentials = New System.Net.NetworkCredential("user name", "password")
- MailObj.Send(Msg)
- Catch ex As Exception
- End Try
- End Function