asp.net中利用CDONTS發送郵件的列子

浠ョ?ㄦ?鋒?т歡褰㈠??????? sendmail.ascx: <%@ Control Language="vb" AutoEventWireup="false" Codebehind="SendMail2.ascx.vb" Inherits="LYEduInfo.SendMail2" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>

????浠惰?籌?
?ㄧ????绠憋?	*??浠跺?闆???煎???璇???
?ㄧ??濮???锛?
寤鴻??????瑙?锛?	*蹇?濉?椤逛??戒負绌恒??
??浠訛?
?
?
?

sendmail.ascx.vb: Imports System.Web.Mail Imports System.IO Public Class SendMail2 Inherits System.Web.UI.UserControl #Region " Web 绐?浣?璁捐?″?ㄧ??????浠ｇ?? " '璇ヨ??ㄦ?? Web 绐?浣?璁捐?″?ㄦ??蹇??????? Private Sub InitializeComponent() End Sub Protected WithEvents txtMailAdd As System.Web.UI.WebControls.TextBox Protected WithEvents txtContext As System.Web.UI.WebControls.TextBox Protected WithEvents labMailBox As System.Web.UI.WebControls.Label Protected WithEvents txtName As System.Web.UI.WebControls.TextBox Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents File1 As System.Web.UI.HtmlControls.HtmlInputFile Protected WithEvents btnSend As System.Web.UI.WebControls.Button Protected WithEvents labMess As System.Web.UI.WebControls.Label Protected WithEvents labAddFile As System.Web.UI.WebControls.Label Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidator '娉ㄦ??: 浠ヤ???浣?绗?０???? Web 绐?浣?璁捐?″?ㄦ??蹇??????? '涓?瑕????ゆ??绉誨?ㄥ???? Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: 姝ゆ?規?璋??ㄦ?? Web 绐?浣?璁捐?″?ㄦ??蹇????? '涓?瑕?浣跨?ㄤ唬??缂?杈??ㄤ慨?瑰???? InitializeComponent() End Sub #End Region ' Public MailBoxName As String '??绠卞??瀛? Public MailAddress As String '??绠卞?闆?? Public MailUserMail As String '濡?????瑕?楠?璇?锛?杩???浠ｇ??????浠朵漢??楠?璇???绠?Public MailUserName As String = "" '濡?????瑕?楠?璇?锛?杩????ㄦ?峰?? Public MailUserPass As String '濡?????瑕?楠?璇?锛?杩???瀵??? Public MailSMTPServer As String '??浠跺???????″??Public NeedAddFile As Boolean = False '??????璁告??浜ら??浠?Public AttachFileExtNames As String = ",txt,doc,xls,jpg,gif,bmp," '??浠剁被??????Public AttachFileSize As String = "500" '??浠跺ぇ灏?????Public UseJMail As Boolean = True '????嬌??Mail缁?浠跺????(4.3浠ヤ?) Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '?ㄦ?ゅ??劇疆??濮???椤電???ㄦ?蜂唬?? Me.labMess.Text = "" If Not Page.IsPostBack Then Me.labMailBox.Text = MailBoxName & "" If Not NeedAddFile Then Me.labAddFile.Visible = False Me.File1.Visible = False End If End If End Sub Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Try If Trim(Me.txtContext.Text & "") = "" Then Throw New Exception("蹇?椤誨～????瀹廣??") End If If Me.txtMailAdd.Text = "" Then Me.txtMailAdd.Text = MailUserMail End If If UseJMail Then JMailSendMail43() Else CDOSendMail() End If Me.labMess.Text = "??浠跺????????锛?璋㈣阿锛?" Catch ex As Exception Me.labMess.Text = "??璇?锛?" & ex.Message End Try End Sub Private Function CDOSendMail() As Boolean ' '浣跨??DO??????浠?Try Dim oMsg As New CDO.Message ' '?朵歡浜洪??绠?oMsg.To = MailAddress Dim strSub As String If Me.txtName.Text & "" = "" Then strSub = "缃???" Else strSub = Me.txtName.Text End If ' '??浠朵漢??绠卞????濂藉??绉?oMsg.From = Me.txtMailAdd.Text & "(" & strSub & ")" ' '??浠朵富棰? strSub = "?ヨ??[" & strSub & "]浠?[" & MailBoxName & "]??浜ょ????浠? oMsg.Subject = strSub ' '??浠跺??瀹?oMsg.TextBody = Me.txtContext.Text & "" ' '澧?????浠訛?濡????? Dim strAddFileName As String strAddFileName = UpAddFile() If strAddFileName <> "" Then oMsg.AddAttachment(strAddFileName) End If ' '璁よ?? Dim iConfg As CDO.IConfiguration = oMsg.Configuration Dim oFields As ADODB.Fields = iConfg.Fields oFields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 If MailUserName <> "" Then oFields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = MailUserName oFields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = MailUserPass oFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1 End If oFields("http://schemas.microsoft.com/cdo/configuration/languagecode").Value = &H804 '璇?瑷?浠ｇ?? oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = IIf(MailSMTPServer = "", "127.0.0.1", MailSMTPServer) oFields.Update() ' '璁劇疆瀛?绗??? oMsg.TextBodyPart.Charset = "gb2312" oMsg.Send() oMsg = Nothing Return True Catch ex As Exception Throw New Exception("浣跨??DO??????浠跺け璐ワ?" & ex.Message) Return False End Try End Function Private Function JMailSendMail43() As Boolean ' '浣跨??Mail4.3缁?浠跺??????浠?Try Dim jmail1 As Object jmail1 = Server.CreateObject("JMAIL.Message") '寤虹????????浠剁??瀵矽薄 jmail1.silent = True '灞??戒?澶???璇?锛?杩???FALSE璺?TRUE涓ゅ?? jmail1.logging = True '???ㄩ??浠舵?ュ? jmail1.Charset = "GB2312" '??浠剁????瀛?缂???涓哄?芥?? jmail1.ContentType = "text/html" '??浠剁???煎?涓?TML?煎? jmail1.AddRecipient(MailAddress) '??浠舵?朵歡浜虹???闆?? If MailUserName <> "" Then jmail1.From = Me.txtMailAdd.Text '??浠朵漢??E-MAIL?闆?? jmail1.MailServerUserName = MailUserName '?誨???浠舵???″?ㄦ???????ㄦ?峰?? jmail1.MailServerPassword = MailUserPass '?誨???浠舵???″?ㄦ??????瀵??? Else jmail1.From = Me.txtMailAdd.Text End If jmail1.Subject = "?ヨ?? [" & MailBoxName & "]" & Me.txtName.Text & " ????浠? '??浠剁????棰? jmail1.FromName = Me.txtName.Text & "" jmail1.Body = Me.txtContext.Text '??浠剁????瀹?' '澧?????浠?Dim strAddFileName As String strAddFileName = UpAddFile() If strAddFileName <> "" Then jmail1.AddAttachment(strAddFileName) End If 'jmail1.Prority = 1 '??浠剁??绱ф?ョ?搴?锛?1 涓烘??蹇?锛?5 涓烘????? 3 涓洪?璁ゅ??jmail1.Send(IIf(MailSMTPServer = "", "127.0.0.1", MailSMTPServer)) '?ц???浠跺????锛???杩???浠舵???″?ㄥ?闆??锛? jmail1.Close() '?抽??瀵矽薄 Return True Catch ex As Exception Throw New Exception("浣跨??Mail??????浠跺け璐ワ?" & ex.Message) Return False End Try End Function Private Function UpAddFile() As String ' '涓?杞芥??浠跺??pFiles/MailAddFile??褰?锛?杩?????浠惰礬寰??? '濡???娌℃????浠朵?杞借???绌轟覆 If Me.File1.PostedFile.ContentLength > 0 Then ' '??????浠跺?? Dim strExt, strFileName, strPathAll As String ' '?╁???锛?澶????╁???????'??eb.config ??涓???缃?锛?濡?锛? ' ' strExt = Path.GetExtension(File1.PostedFile.FileName & "") Dim strSetExt As String If AttachFileExtNames & "" <> "" Then strSetExt = AttachFileExtNames & "" Else strSetExt = GetConfigValue("MailAttachFileExtNames") End If If InStr(strSetExt, "," & strExt.Trim(".") & ",", CompareMethod.Text) <= 0 Then Dim myEx As New Exception("?╁??????躲??绂?姝??杞藉??缂?涓?"" & strExt & """????浠?) Throw myEx End If ' '澶?????浠跺ぇ灏?????'??eb.config ??涓???缃?锛?濡?锛? '??浣???K ' Dim intSetSize As Integer If AttachFileSize & "" <> "" Then intSetSize = CInt("0" & AttachFileSize) Else intSetSize = CInt("0" & GetConfigValue("MailAttachFileSize")) End If If intSetSize * 1024 < File1.PostedFile.ContentLength Then Dim myEx As New Exception("??浠堕?垮害瓒?杩????躲??绂?姝??杞藉ぇ浜?" & intSetSize & "K????浠躲??") Throw myEx End If strFileName = Path.GetFileName(Me.File1.PostedFile.FileName) Dim strDir As String strDir = Server.MapPath(gRootDir & GetConfigValue("MailAttachFile")) strPathAll = Path.Combine(strDir, strFileName) ' '濡?????锛???????If File.Exists(strPathAll) Then File.Delete(strPathAll) End If ' '涓?杞芥??浠?File1.PostedFile.SaveAs(strPathAll) Return strPathAll Else Return "" End If End Function End Class