C#、.NET版邮件(群)发系统
2011-12-19 17:12
375 查看
这个小程序是之前做的,今天把它晾上来了。程序比较简单,,适合初学者学习。先给个截图:
确定按钮代码
程序结构:
添加收件人按钮弹出
适合初学者,程序里面有注解,比较容易懂。
源码下载
确定按钮代码
private void btnOK_Click(object sender, EventArgs e) { NewInforLine = txtSMTP.Text + " " + txtSenderEmail.Text + " " + txtSenderPwd.Text; Regex regex = new Regex(@"^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"); //验证Email格式 if (regex.IsMatch(txtSenderEmail.Text.Trim()) && txtSenderPwd.Text.Trim() != "") { if (arg) //修改发件人 { string[] content; string[] content1; try { content = File.ReadAllLines(PathBase + inforpath, Encoding.Default); content1 = new string[content.Length]; for (int i = 0; i < content.Length; i++) { if (content[i] != OldInforLine) { content1[i] = content[i]; continue; } content1[i] = NewInforLine; } FileStream stream2 = File.Open(inforpath, FileMode.OpenOrCreate, FileAccess.Write); stream2.Seek(0, SeekOrigin.Begin); stream2.SetLength(0); //清空txt文件 stream2.Close(); File.WriteAllLines(PathBase + inforpath, content1); } catch (Exception ex) { MessageBox.Show(ex.Message); } } else //添加发件人 { using (FileStream stream = new FileStream(inforpath, FileMode.Append, FileAccess.Write)) { using (StreamWriter write = new StreamWriter(stream, Encoding.Default)) { string stremail = txtSMTP.Text + " " + txtSenderEmail.Text + " " + txtSenderPwd.Text; write.WriteLine(stremail); } } } ClearContent(); this.DialogResult = System.Windows.Forms.DialogResult.OK; } else { MessageBox.Show("邮箱格式不正确", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information); this.DialogResult = System.Windows.Forms.DialogResult.None; } }
程序结构:
添加收件人按钮弹出
适合初学者,程序里面有注解,比较容易懂。
源码下载
相关文章推荐
- win2008 64位系统 C#实现发送邮件(ASP.NET)
- C#使用系统方法发送异步邮件完整实例
- C# 使用系统方法发送异步邮件
- C# 使用系统方法发送异步邮件
- c# 开发邮件系统心得
- C#开发基于ESMTP协议的邮件发送系统经验总结
- 基于C#平台下利用POP3和SMTP协议的邮件归档系统
- c#编写邮件发送系统
- C#邮件发送的系统部分代码
- [C#] Winform里调用系统里默认的邮件客户端
- C# 邮件发送系统
- 总结 使用c# 开发邮件系统心得
- c#写的一个简单的邮件发送系统
- [工具-008] C#邮件发送系统
- C#邮件接收系统核心代码(接收POP3邮件IMAP邮件)
- c#利用webmail邮件系统发送邮件示例分享
- C#邮件接收系统核心代码(接收POP3邮件IMAP邮件)
- C#使用SMTP协议发送邮件(腾讯企业邮箱)
- C# 邮件类
- Linux系统使用mailx命令发送邮件