1.打开VS.NET 2003.
2.新建一个WinForm Application.
3.添加命名空间
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.Net;
using System.Net.Sockets;
using System.Text;
using System.IO;
4.主要代码
为了防止界面在连接服务器时死锁,我另开了一个线程
private void button1_Click(object sender, System.EventArgs e)
{
Thread myThread=new Thread(new ThreadStart(TreadGet));
myThread.Start();
}
private void TreadGet()
{
ConnectToServer();
LogonServer();
GetEmailList();
}
//连接服务器
private void ConnectToServer()
{
this.myClient=new TcpClient();
try
{
this.myClient.Connect(this.serverNameTextBox.Text,110);
this.messageListBox.Items.Add("连接服务器成功");
//初始化网络流,数据就是通过这个对象读出来的
ns=this.myClient.GetStream();
sr=new StreamReader(ns);
sw=new StreamWriter(ns);
}
catch(Exception ex)
{
this.messageListBox.Items.Add(ex.Message);
}
}
//验证用户名,密码
private void LogonServer()
{
result=sr.ReadLine();
this.messageListBox.Items.Add(result);
sw.WriteLine("USER "+this.nameTextBox.Text);
sw.Flush();
result=sr.ReadLine();
if(result.Substring(0,3)=="-ER")
{
this.messageListBox.Items.Add("没有这个用户名");
return;
}
sw.WriteLine("PASS "+this.passTextBox.Text);
sw.Flush();
try
{
result=sr.ReadLine();
}
catch(IOException ioex)
{
this.messageListBox.Items.Add(ioex.Message);
return;
}
if(result.Substring(0,4)=="-ERR")
{
this.messageListBox.Items.Add("无法登录,可能使用户名密码错误!");
return;
}
this.messageListBox.Items.Add("登录成功");
}
//获取邮件列表
private void GetEmailList()
{
string from=null;
string subject=null;
sw.WriteLine("stat");
sw.Flush();
result=sr.ReadLine();
// MessageBox.Show(result);
string[] nummessage=result.Split(' ');
int totalnum=Convert.ToInt32(nummessage[1]);
if(totalnum>0)
this.messageListBox.Items.Add("你有"+totalnum.ToString()+"邮件");
else
this.messageListBox.Items.Add("邮箱里没有邮件");
for(int i=1;i<=totalnum;i++)
{
sw.WriteLine("top "+i.ToString()+" 0");
sw.Flush();
result=sr.ReadLine();
while(true)
{
result=sr.ReadLine();
if(result==".")
break;
if(result.Length>4)
{
if(result.Substring(0,5)=="From:")
from=result ;
if(result.Substring(0,8)=="Subject:")
subject=result ;
}
}
this.listBox1 .Items.Add(i.ToString()+" "+from+ " "+ subject);
}
}
private void button2_Click(object sender, System.EventArgs e)
{
this.listBox1.Items.Clear();
}
参考资料
网络邮件收取使用的是Pop3协议，了解Pop3协议有助于我们加深对邮件系统的理解。而且使用Pop3协议你还可以直接telnet 到邮件服务器上去收信。
一般telnet Pop3 Server 110后就可以用这些命令了，大小写不敏感， 不包括口令本身，注意不要让口令回显，等验证通过后再允许回显好了。
user username 用户认可
pass password 认可 执行成功则状态转换
apop name,digest 认可一种安全传输口令的办法，执行成功导致状态转换，请参见RFC 1321 。
stat 处理请求server回送邮箱统计资料，如邮件数、 邮件总字节数
uidl n 处理 server返回用于该指定邮件的唯一标识， 如果没有指定，返回所有的。
list n 处理 server返回指定邮件的大小等
retr n 处理 server返回邮件的全部文本
dele n 处理 server标记删除，quit命令执行时才真正删除
rset 处理撤消所有的dele命令
top n,m 处理 返回n号邮件的前m行内容，m必须是自然数
noop 处理 server返回一个肯定的响应
quit client 希望结束会话。如果server处于"处理" 状态，则现在进入"更新"状态，删除那些标记成删除的邮件。如果server处于"认可"状态， 则结束会话时server不进入"更新"状态 。
使用telnet 的一个完整的收信例子如下：
telnet pop3Server 110
user username
pass ****
stat
list
retr 1
retr 2
...
dele 1
dele 2
...
quit