khacdanmq
Bài viết đã đăng: 16
Điểm: 0
Ghi ngày: 6/6/2010
Tình trạng: offline
|
mình có đoạn code gưir mail như sau, nhưng không biết sao không gửi được, giúp mình với:
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Net.Configuration
Imports System.Net.Mail
Imports System.IO
Public Shared ReadOnly Property FormAddress() As String
Get
Dim cfg As SmtpSection = ConfigurationManager.GetSection("system.net/mailSettings/smtp")
Return cfg.Network.UserName
End Get
End Property
Protected Sub btnGoi_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoi.Click
SuaYKien()
LoadYKien()
Dim sr As StreamReader = New StreamReader(Server.MapPath("template/Contact.htm"))
sr = File.OpenText(Server.MapPath("template/Contact.htm"))
Dim content As String = sr.ReadToEnd
content = content.Replace("[Sender]", "admin@yahoo.com")
content = content.Replace("[Email]", lblEmail.Text)
content = content.Replace("[Content]", txtMoTa.Text)
content = content.Replace("[DateTime]", DateTime.Now.ToShortDateString())
Try
Response.Write(sendMail("Lien He Khach Hang", content, lblEmail.Text.Trim(), True, False))
Catch ex As Exception
End Try
btnGoi.Enabled = True
End Sub
Public Function sendMail(ByVal subject As String, ByVal body As String, ByVal toAddress As String, ByVal isHTML As Boolean, ByVal isSSL As Boolean) As String
Try
Using mail As New MailMessage
mail.From = New MailAddress(FormAddress, "Eboox@yahoo.com")
mail.To.Add(toAddress)
mail.Subject = subject
mail.Body = body
mail.IsBodyHtml = isHTML
Dim client As New SmtpClient
client.EnableSsl = isSSL
client.Send(mail)
End Using
Catch ex As SmtpException
Return ex.Message
End Try
Return "Goi Mail Thanh Cong !!!!!!"
End Function
|
Printable Version
gửi mail đến một địa chỉ mail - 
Bài Mới
Không Có Bài Mới
Chủ đề nóng và CÓ bài viết mới
Chủ đề nóng và KHÔNG có bài viết mới
Đã khóa và CÓ bài viết mới
Đã khóa và KHÔNG có bài viết mới
Đăng Đề Mục Mới