C#、.NET版郵件（群）發系統

 

這個小程式是之前做的，今天把它晾上來了。程式比較簡單，，適合初學者學習。先給個：

實現單發和多發功能，可附加多份附件，限制總大小為1M，大於後無法發送。

預設發送格式為Html。

【修改】【添加】的操作是針對寄件者的，點擊【修改】彈出介面：

填充文字框的是在ThreadSendEmail.cs中的建構函式中

        /// <summary>        /// 發送郵件        /// </summary>        /// <param name="strSenderEmail">寄件者郵箱</param>        /// <param name="strTitle">郵件標題</param>        /// <param name="strBody">郵件內文</param>        /// <param name="ToEmail">收件者郵箱</param>        /// <param name="AttachmentFiles">附件</param>        public ThreadSendEmail(string strSenderEmail, string strTitle, string strBody, string ToEmail, ArrayList AttachmentFiles)        {            this.strSenderEmail = strSenderEmail;            strToEmail = ToEmail;            strEmailTitle = strTitle;            strEmailBody = strBody;            arrAttachmentFiles = AttachmentFiles;            using (FileStream stream = new FileStream(inforpath, FileMode.OpenOrCreate, FileAccess.Read))            {                using (StreamReader read = new StreamReader(stream, Encoding.Default))                {                    string GetSenderInfor;                    while ((GetSenderInfor = read.ReadLine()) != null)                    {                        string[] line = GetSenderInfor.Trim().Split(' ');                        if (line[1] == strSenderEmail)                        {                            strSenderSMTP = line[0];                            strSnederPwd = line[2];                        }                    }                }            }        }

　　

當然，點擊【添加】文字框中是沒有內容的。

下面的函數是發送郵件函數

/// <summary>        /// 發送郵件        /// </summary>        /// <returns>true:發送成功 false:發送失敗</returns>        public bool Send()        {            SmtpClient client = new SmtpClient();            client.Host = strSenderSMTP;            client.UseDefaultCredentials = false;            client.Credentials = new System.Net.NetworkCredential(strSenderEmail, strSnederPwd);            client.DeliveryMethod = SmtpDeliveryMethod.Network;            MailMessage mm = new MailMessage(strSenderEmail, strToEmail, strEmailTitle, strEmailBody);            mm.BodyEncoding = Encoding.Default;            mm.IsBodyHtml = true;            if (arrAttachmentFiles.Count != 0)            {                foreach (string attach in arrAttachmentFiles)                {                    Attachment attachment = new Attachment(attach, System.Net.Mime.MediaTypeNames.Application.Octet);                    mm.Attachments.Add(attachment);                }            }            try            {                client.Send(mm);                MessageBox.Show("郵件發送成功", "成功", MessageBoxButtons.OK);                return true;            }            catch (Exception ex)            {                MessageBox.Show("發送失敗" + ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);                return false;            }        }

若為修改時，點擊添加、修改寄件者對話方塊確定按鈕，程式將清空txt然後重新寫入。具體代碼為

確定按鈕代碼

 1 private void btnOK_Click(object sender, EventArgs e)
 2         {
 3             NewInforLine = txtSMTP.Text + " " + txtSenderEmail.Text + " " + txtSenderPwd.Text;
 4             Regex regex = new Regex(@"^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"); //驗證Email格式
 5             if (regex.IsMatch(txtSenderEmail.Text.Trim()) && txtSenderPwd.Text.Trim() != "")
 6             {
 7                 if (arg) //修改寄件者
 8                 {
 9                     string[] content;
10                     string[] content1;
11                     try
12                     {
13                         content = File.ReadAllLines(PathBase + inforpath, Encoding.Default);
14                         content1 = new string[content.Length];
15                         for (int i = 0; i < content.Length; i++)
16                         {
17                             if (content[i] != OldInforLine)
18                             {
19                                 content1[i] = content[i];
20                                 continue;
21                             }
22                             content1[i] = NewInforLine;
23                         }
24 
25                         FileStream stream2 = File.Open(inforpath, FileMode.OpenOrCreate, FileAccess.Write);
26                         stream2.Seek(0, SeekOrigin.Begin);
27                         stream2.SetLength(0); //清空txt檔案
28                         stream2.Close();
29                         File.WriteAllLines(PathBase + inforpath, content1);
30                     }
31                     catch (Exception ex)
32                     {
33                         MessageBox.Show(ex.Message);
34                     }
35                 }
36                 else //添加寄件者
37                 {
38                     using (FileStream stream = new FileStream(inforpath, FileMode.Append, FileAccess.Write))
39                     {
40                         using (StreamWriter write = new StreamWriter(stream, Encoding.Default))
41                         {
42                             string stremail = txtSMTP.Text + " " + txtSenderEmail.Text + " " + txtSenderPwd.Text;
43                             write.WriteLine(stremail);
44                         }
45                     }
46                 }
47                 ClearContent();
48                 this.DialogResult = System.Windows.Forms.DialogResult.OK;
49             }
50             else
51             {
52                 MessageBox.Show("郵箱格式不正確", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
53                 this.DialogResult = System.Windows.Forms.DialogResult.None;
54             }
55         }

 

程式結構：

添加收件者按鈕彈出

 

適合初學者，程式裡面有註解，比較容易懂。

 

源碼下載