Phoenix.net 迷之殿

之前因為公司的需求，需要寫道發送電子報的功能 ...

撇開效率的問題不說 ... 一封信一封信寄可以達到隱藏其他使用者，以及被判定為廣告郵件的機率

但是 如果人數一多 ... 就會出現等待過久的情況 ...

所以就寫了一個 非同步的郵件寄送 ..如下

PhoenixMail.aspx(僅列出部分)

<asp:UpdatePanel ID="MailUpdatePanel" runat="server"> <ContentTemplate> <table> <tr> <td class="MailContent"> 寄件人 </td> <td class="MailWrite"> <asp:TextBox ID="txtFrom" runat="server" CssClass="width530px bordergray"></asp:TextBox> </td> </tr> <tr> <td class="MailContent"> 收件人<br /> (,分隔) </td> <td class="MailWrite"> <asp:TextBox ID="txtTo" runat="server" CssClass="width530px bordergray"></asp:TextBox> </td> </tr> <tr> <td class="MailContent"> 標題 </td> <td class="MailWrite"> <asp:TextBox ID="txtSubject" runat="server" CssClass="width350px bordergray"></asp:TextBox> </td> </tr> <tr> <td class="MailContent"> 內容 </td> <td class="MailWrite"> <asp:TextBox ID="txtBody" runat="server" CssClass="textarea bordergray" TextMode="MultiLine"></asp:TextBox> </td> </tr> <tr> <td class="MailWrite"> <asp:ImageButton ID="btnSend" runat="server" ImageUrl="~/images/MainPage/Management/Sent.png" ToolTip="送出" Text="送出" OnClick="btnSend_Click" /> </td> <td class="MailWrite"> <asp:Literal ID="ReturnLiteral" runat="server"></asp:Literal> </td> </tr> </table> </ContentTemplate> </asp:UpdatePanel>

PhoenixMail.aspx.csusing System; using System.Net; using System.Net.Mail; using System.Text; using System.Web.UI; namespace WebApplication { public partial class PhoenixMail : BasePage { protected void Page_Load(object sender, EventArgs e) { } protected void btnSend_Click(object sender, ImageClickEventArgs e) { string[] emaillist = txtTo.Text.Split(','); AsyncSendMail delt = new AsyncSendMail(SendMailAsync); AsyncCallback acb = new AsyncCallback(SendMailCallBack); IAsyncResult isr = delt.BeginInvoke(txtFrom.Text, emaillist, acb, delt); ReturnLiteral.Text = "郵件已加入工作排程，完成後會寄送一封通知信給您，謝謝"; } public string SendMailAsync(string From, string[] To) { StringBuilder sb = new StringBuilder(); System.Diagnostics.Stopwatch sw = new System.Diagnostics.Stopwatch(); sb.AppendFormat("<p>起始時間 - {0} - </p>", DateTime.Now); sb.AppendFormat("<p>總共{0}封郵件<p>", To.Length); int Success = 0; int Failure = 0; SmtpClient emailClient = new SmtpClient("YourMail.com"); emailClient.Credentials = new NetworkCredential("YourAccount", "YourPassword"); sw.Reset(); sw.Start(); for (int i = 0; i < To.Length; i++) { try { MailMessage message = new MailMessage() { Body = txtBody.Text, BodyEncoding = Encoding.UTF8, From = new MailAddress(From), IsBodyHtml = true, Subject = txtSubject.Text, SubjectEncoding = Encoding.UTF8 }; message.To.Add(To[i]); emailClient.Send(message); Success++; message.Dispose(); } catch { sb.AppendFormat("<p>寄送失敗的郵件 - {0}</p>", To[i]); Failure++; continue; } } sw.Stop(); emailClient = null; sb.AppendFormat("<p>成功郵件數量：{0}</p><p>失敗郵件數量：{1}<p>", Success, Failure); sb.AppendFormat("<p>結束時間 - {0} - </p>", DateTime.Now); sb.AppendFormat("<p>總共時數 - {0}小時{1}分{2}秒{3}毫秒</p>", sw.Elapsed.Hours, sw.Elapsed.Minutes, sw.Elapsed.Seconds, sw.Elapsed.Milliseconds); return sb.ToString(); } public delegate string AsyncSendMail(string From, string[] To); public void SendMailCallBack(IAsyncResult isr) { AsyncSendMail asm = (AsyncSendMail)isr.AsyncState; string result = asm.EndInvoke(isr); SmtpClient emailClient = new SmtpClient("YourMail.com"); emailClient.Credentials = new NetworkCredential("YourAccount", "YourPassword"); MailMessage ResultMail = new MailMessage("YourAccount@YourMail.com", "YourAccount@YourMail.com", "郵件寄送完成通知信", result); ResultMail.IsBodyHtml = true; emailClient.Send(ResultMail); emailClient = null; ResultMail.Dispose(); } } }

程式解說:

行18 將郵件字串分離

行19~21 非同步執行

行25 非同步執行方法主體

行28 宣告一個計時器

行33.34 設定SMTP位址 以及帳號密碼

行35.36開始計時器

行37~60一一寄出郵件

行62.計時器停止

行67 回傳訊息

行70 宣告一個非同步委派的方法(與非同步主體簽名碼相同)

行72 非同步回傳訊息的方法

以下 略

請自行修改"YourMail.com" "YourAccount" "YourPassword" 等等

以上 Phoenix 2008/11/14