专题十：实现简单的邮件收发器

  1 #region 邮件发送功能代码
  2         // 添加附件
  3         private void btnAddFile_Click(object sender, EventArgs e)
  4         {
  5             OpenFileDialog openFileDialog = new OpenFileDialog();
  6             openFileDialog.CheckFileExists = true;
  7             // 只接受有效的文件名
  8             openFileDialog.ValidateNames = true;
  9             // 允许一次选择多个文件作为附件
 10             openFileDialog.Multiselect = true;
 11             openFileDialog.Filter = "所有文件(*.*)|*.*";
 12             if (openFileDialog.ShowDialog() != DialogResult.OK)
 13             {
 14                 return;
 15             }
 16             if (openFileDialog.FileNames.Length > 0)
 17             {
 18                 // 因为这里允许选择多个文件，所以这里用AddRange而没有用Add方法
 19                 cmbAttachment.Items.AddRange(openFileDialog.FileNames);
 20             }
 21         }
 22 
 23         // 删除附件
 24         private void btnDeleteFile_Click(object sender, EventArgs e)
 25         {
 26             int index = cmbAttachment.SelectedIndex;
 27             if (index == -1)
 28             {
 29                 MessageBox.Show("请选择要删除的附件！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
 30                 return;
 31             }
 32             else
 33             {
 34                 cmbAttachment.Items.RemoveAt(index);
 35             }
 36         }
 37 
 38         // 发送邮件
 39         private void btnSend_Click(object sender, EventArgs e)
 40         {
 41             this.Cursor = Cursors.WaitCursor;
 42             // 实例化一个发送的邮件
 43             // 相当于与现实生活中先写信，程序中把信（邮件）抽象为邮件类了
 44             MailMessage mailMessage = new MailMessage();
 45             // 指明邮件发送的地址，主题，内容等信息
 46             // 发信人的地址为登录收发器的地址，这个收发器相当于我们平时Web版的邮箱或者是OutLook中配置的邮箱
 47             mailMessage.From = new MailAddress(tbxUserMail.Text);
 48             mailMessage.To.Add(txbSendTo.Text);
 49             mailMessage.Subject = txbSubject.Text;
 50             mailMessage.SubjectEncoding = Encoding.Default;
 51             mailMessage.Body = richtbxBody.Text;
 52             mailMessage.BodyEncoding = Encoding.Default;
 53             // 设置邮件正文不是Html格式的内容
 54             mailMessage.IsBodyHtml = false;
 55             // 设置邮件的优先级为普通优先级
 56             mailMessage.Priority = MailPriority.Normal;
 57             //mailMessage.ReplyTo = new MailAddress(tbxUserMail.Text);
 58 
 59             // 封装发送的附件
 60             System.Net.Mail.Attachment attachment = null;
 61             if (cmbAttachment.Items.Count > 0)
 62             {
 63                 for (int i = 0; i < cmbAttachment.Items.Count; i++)
 64                 {
 65                     string fileNamePath = cmbAttachment.Items[i].ToString();
 66                     string extName = Path.GetExtension(fileNamePath).ToLower();
 67                     if (extName == ".rar" || extName == ".zip")
 68                     {
 69                         attachment = new System.Net.Mail.Attachment(fileNamePath, MediaTypeNames.Application.Zip);
 70                     }
 71                     else
 72                     {
 73                         attachment = new System.Net.Mail.Attachment(fileNamePath,MediaTypeNames.Application.Octet);
 74                     }
 75 
 76                     // 表示MIMEContent-Disposition标头信息
 77                     // 对于ContentDisposition具体类的解释大家可以参考MSDN
 78                     // 这里我就不重复贴出来了，给个地址: http://msdn.microsoft.com/zh-cn/library/System.Net.Mime.ContentDisposition.aspx (着重看备注部分)
 79                     ContentDisposition cd = attachment.ContentDisposition;
 80                     cd.CreationDate = File.GetCreationTime(fileNamePath);
 81                     cd.ModificationDate = File.GetLastWriteTime(fileNamePath);
 82                     cd.ReadDate = File.GetLastAccessTime(fileNamePath);
 83                     // 把附件对象加入到邮件附件集合中
 84                     mailMessage.Attachments.Add(attachment);
 85                 }
 86             }
 87 
 88             // 发送写好的邮件
 89             try
 90             {
 91                 // SmtpClient类用于将邮件发送到SMTP服务器
 92                 // 该类封装了SMTP协议的实现，
 93                 // 通过该类可以简化发送邮件的过程，只需要调用该类的Send方法就可以发送邮件到SMTP服务器了。
 94                 smtpClient.Send(mailMessage);
 95                 MessageBox.Show("邮件发送成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
 96 
 97             }
 98             catch(SmtpException smtpError)
 99             {
100                 MessageBox.Show("邮件发送失败：[" + smtpError.StatusCode + "]；[" 
101                     + smtpError.Message+"];\r\n["+smtpError.StackTrace+"]."
102                     ,"错误",MessageBoxButtons.RetryCancel,MessageBoxIcon.Error);
103             }
104             finally
105             {
106                 mailMessage.Dispose();
107                 this.Cursor = Cursors.Default;
108             }
109         }
110 
111         #endregion

  1 // 登录邮箱（这里是本程序——邮件收发器）
  2         private void btnLogin_Click_1(object sender, EventArgs e)
  3         {
  4             // 与POP3服务器建立TCP连接
  5             // 建立连接后把服务器上的邮件下载到本地
  6             // 设置当前界面的光标为等待光标（就是我们看到的一个动的圆形）
  7             Cursor.Current = Cursors.WaitCursor;
  8 
  9             lsttbxStatus.Items.Clear();
 10             try
 11             {
 12                 // POP3服务器通过监听TCP110端口来提供POP3服务的
 13                 // 向POP3服务器发出tcp请求
 14                 tcpClient = new TcpClient(tbxPOP3Server.Text, 110);
 15                 lsttbxStatus.Items.Add("正在连接...");
 16             }
 17             catch
 18             {
 19                 MessageBox.Show("连接失败", "错误", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error);
 20                 lsttbxStatus.Items.Add("连接失败！");
 21                 return;
 22             }
 23 
 24             // 连接成功的情况
 25             networkStream = tcpClient.GetStream();
 26             streamReader = new StreamReader(networkStream, Encoding.Default);
 27             streamWriter = new StreamWriter(networkStream, Encoding.Default);
 28             streamWriter.AutoFlush = true;
 29             string str;
 30             // 读取服务器返回的响应连接信息
 31             str = GetResponse();
 32             if (CheckResponse(str) == false)
 33             {
 34                 lsttbxStatus.Items.Add("服务器拒接了连接请求");
 35                 return;
 36             }
 37             // 如果服务器接收请求
 38             // 向服务器发送凭证——用户名和密码
 39 
 40             // 向服务器发送用户名，请求确认
 41             lsttbxStatus.Items.Add("核实用户名阶段...");
 42             SendToServer("USER " + tbxUserMail.Text);
 43             str = GetResponse();
 44             if (CheckResponse(str) == false)
 45             {
 46                 lsttbxStatus.Items.Add("用户名错误.");
 47                 return;
 48             }
 49 
 50             // 用户名审核通过后再发送密码等待确认
 51             // 向服务器发送密码，请求确认
 52             SendToServer("PASS "+txbPassword.Text);
 53             str = GetResponse();
 54             if (CheckResponse(str) == false)
 55             {
 56                 lsttbxStatus.Items.Add("密码错误！");
 57                 return;
 58             }
 59 
 60             lsttbxStatus.Items.Add("身份验证成功，可以开始会话");
 61             // 向服务器发送LIST 命令，请求获得邮件列表和大小
 62             lsttbxStatus.Items.Add("获取邮件....");
 63             SendToServer("LIST");
 64             str = GetResponse();
 65             if (CheckResponse(str) == false)
 66             {
 67                 lsttbxStatus.Items.Add("获取邮件列表失败");
 68                 return;
 69             }
 70 
 71             lsttbxStatus.Items.Add("邮件获取成功");
 72 
 73             // 窗口控件控制
 74             tabControlMyMailbox.Enabled = true;
 75             btnReadMail.Enabled = false;
 76             btnDownLoad.Enabled = false;
 77             btnDeleteMail.Enabled = false;
 78 
 79             // 登陆成功后实例化邮件发送对象，以便后面完成发送邮件的操作
 80             // 实例化邮件发送类（SmtpClient）对象
 81             if (smtpClient == null)
 82             {
 83                 smtpClient = new SmtpClient();
 84                 smtpClient.Host = tbxSmtpServer.Text;
 85                 smtpClient.Port = 25;
 86                     
 87                 // 不使用默认凭证，即需要认证登陆
 88                 smtpClient.UseDefaultCredentials = false;
 89                 smtpClient.Credentials = new NetworkCredential(tbxUserMail.Text, txbPassword.Text);
 90                 smtpClient.DeliveryMethod = SmtpDeliveryMethod.Network;
 91             }
 92 
 93             // 登陆成功后，自动接收新邮件
 94             // 开始接收邮件
 95             try
 96             {
 97                 btnRefreshMailList.PerformClick();
 98             }
 99             catch
100             {
101                 MessageBox.Show("读取邮件列表失败！", "错误", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error);
102             }
103 
104             lsttbxStatus.Items.Add("登陆成功!");
105             lsttbxStatus.TopIndex = lsttbxStatus.Items.Count - 1;
106             Cursor.Current = Cursors.Default;
107 
108             // 窗口控件控制
109             richtbxMailContentReview.Enabled = true;
110             tbxUserMail.Enabled = false;
111             txbPassword.Enabled = false;
112             btnLogin.Enabled = false;
113             btnLogout.Enabled = true;
114             tbxSmtpServer.Enabled = false;
115             tbxPOP3Server.Enabled = false;
116             btnReadMail.Enabled = true;
117             btnDownLoad.Enabled = true;
118             btnDeleteMail.Enabled = true;
119             tabControlMyMailbox.Focus();
120         }
121 
122         #region 处理与POP3服务器交互事件
123         // 获取服务器响应的信息
124         private string GetResponse()
125         {
126             string str = null;
127             try
128             {
129                 str = streamReader.ReadLine();
130                 if (str == null)
131                 {
132                     lsttbxStatus.Items.Add("连接失败——服务器没有响应");
133                 }
134                 else
135                 {
136                     lsttbxStatus.Items.Add("收到：[" + str + "]");
137                     if (str.StartsWith("-ERR"))
138                     {
139                         str = null;
140                     }
141                 }
142             }
143             catch(Exception err)
144             {
145                 lsttbxStatus.Items.Add("连接失败：[" + err.Message + "]");
146             }
147 
148             return str;
149         }
150 
151         // 检查响应信息
152         private bool CheckResponse(string responseString)
153         {
154             if (responseString == null)
155             {
156                 return false;
157             }
158             else
159             {
160                 if (responseString.StartsWith("+OK"))
161                 {
162                     return true;
163                 }
164                 else
165                 {
166                     return false;
167                 }
168             }
169         }
170 
171         // 向服务器发送命令
172         private bool SendToServer(string str)
173         {
174             try
175             {
176                 // 这里必须使用WriteLine方法的，因为POP3协议中定义的命令是以回车换行结束的
177                 // 如果客户端发送的命令没有以回车换行结束，POP3服务器就不能识别，也就不能响应客户端的请求了
178                 // 如果想用Write方法，则str输入的参数字符中必须包含“\r\n”,也就是回车换行字符串。
179                 streamWriter.WriteLine(str);
180                 streamWriter.Flush();
181                 lsttbxStatus.Items.Add("发送：[" + str + "]");
182                 return true;
183             }
184             catch(Exception ex)
185             {
186                 lsttbxStatus.Items.Add("发送失败：[" + ex.Message + "]");
187                 return false;
188             }
189         }
190 
191         #endregion