从1996年Windows CE 1.0 到最新Windows CE.Net, WINCE 已有8年历史Windows CE设计简单灵活可在各种小型嵌入式系统中使用且其功能强大在最新代高性能工业和家用设备中也得到了充分使用Microsoft eMbedded Visual Tools是微软公司专为WINCE设备开发套开发环境功能强大开发方便快捷二者结合为实现嵌入式电子邮件系统提供了绝佳开发环境
　　
本嵌入式电子邮件系统即是以Windows CE为开发平台结合Embedded Visual Basic 3.0开发工具设计实现最后采用Microsoft POCKET PC2002 for Windows SDK工具完成系统测试
　　
1 移动设备邮件系统工作原理
　　
目前网络上电子邮件传送有点如同日常信件中普通信件发送日常生活中人们首先将邮件交给邮局邮局再按照信封上地址投递最后将邮件发到收信人信箱里收信人只要凭借他信箱钥匙就可以拿到信件同样封电子邮件从用户手中发出首先有个把这封邮件发送到SMTP服务器（发送邮件服务器）上再由服务器负责将邮件传递到目信箱然后需要个接受信箱邮件当然也不是只要随便有个就可以还需要帐号（如同收信人姓名）与口令（如同信箱钥匙）所以很明显发送邮件至少需要4个处理不同任务有不同功能：发送邮件到服务器即发送邮件客户端；在网络上传送邮件到对方信箱即SMTP服务器；接受邮件并存贮给用户提取服务器即POP3服务器；从POP3服务器上收取邮件即接受邮件客户端
　　
收发电子邮件依靠套标准会话协议其中最为著名现在最常用有：SMTP协议该协议规定了与SMTP服务器进行对话系列命令与过程标准；POP3协议该协议规定了与POP3服务器进行对话系列命令与过程标准还有IMAP4协议类似POP3邮件接收协议
　　
1.1 SMTP协议
　　
SMTP（Simple Mail Transfer Protocol）又叫做简单邮件传输协议它主要对如何将电子邮件从发送方地址传送到接收方也即是对传输规则做了规定SMTP协议通信模型并不复杂主要工作集中在发送SMTP和接收SMTP上：首先针对用户发出邮件请求由发送SMTP建立条连接到接收SMTP双工通讯链路发送SMTP负责向接收SMTP发送SMTP命令而接收SMTP则负责接收并反馈应答可大致用下页SMTP通讯模型示意图来表示：



图 1  SMTP 通讯模型示意图
　　
1.2 POP3协议
　　
POP3（Post Office Protocol Version 3）是整个电子邮件系统基本协议之POP3适用于C/S结构脱机模型电子邮件协议 时服务器通过侦听TCP端口110开始POP3服务当客户主机需要使用服务时它将与服务器主机建立TCP连接当连接建立后POP3发送确认消息客户和POP3服务器相互（分别）交换命令和响应这过程直要持续到连接终止
　　
2 系统设计
　　
该邮件系统由两个客户端组成SMTP MAILER实现邮件和附件发送POP3 MAIL CHECKER用于登陆邮件服务器接受原始邮件信息
　　
2．1 邮件发送端设计与实现
　　
2．1．1发送端工作流程
　　
下图是邮件发送流程图



2．1．2具体实现
　　
发送邮件功能主要由eMbedded Visual Basic下WINSOCK控件实现WINSOCK即Windows Socket,是微软公司对Socket编程接口集成WINSOCK使用IP协议同时支持TCP与UDP协议在收发邮件这类基本网络数据通信前提下WINSOCK控件是最好选择
　　
以A—H表示邮件发送各部分设计：
　　
A 在这个邮件中首先要连接SMTP邮件服务因此在cmdSend_Click事件中最先实施是Wsock.RemoteHost = ServerIp连接设定服务器主机Wsock.RemotePort = ServerPort 设定默认端口
　　
B 然后开始构造邮件格式定义串m_Date为发送日期串mData为邮件头语句m_Date = FormatDateTime(Date, [vbShortDate]) & ,  & FormatDateTime(Date, [vbLongDate]) &   & FormatDateTime(Time, [vbLongTime]) &  &  -0600  定义了邮件发送日期
构造邮件标题 mData = From: & Chr(32) & strSendName & vbCrLf & _
　　                     Date: & Chr(32) & m_Date & vbCrLf & _
　　                     X-Mailer: Harold Smtp Mailer V1.0 & vbCrLf & _
                   To: & Chr(32) & strReceiveName & vbCrLf & _
　　                     Subject: & Chr(32) & strSubject & vbCrLf