基于Windows CE的嵌入式电子邮件系统设计

1、基于windows ce的嵌入式电子邮件系统设计发送邮件的功能主要由embedded visual basic下的winsock控件实现winsock即windows socket,是微软公司对socket编程接口的集成。winsock用法ip协议，同时支持tcp与udp协议，在收发邮件这类基本网络数据通信的前提下，winsock控件是最好的挑选。以ah表示邮件发送的各部分设计：a 在这个邮件程序中，首先要衔接smtp的邮件服务因此在cmdsend_click()大事中最先实施的是wsock.remotehost = serverip衔接设定的服务器主机wsock.remoteport = s

2、erverport 设定默认的端口。b 然后开头构造邮件格式，定义字符串m_date为发送日期，字符串mdata为邮件头。语句m_date = formatdatetime(date, vbshortdate) & ", " & formatdatetime(date, vblongdate) & " " & formatdatetime(time, vblongtime) & "" & " -0600" 定义了邮件的发送日期。构造邮件标题 mdata = "

3、;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

4、) & strsubject & vbcrlf这个典型的邮件标题包含了：发件人，发件日期，收件人，主题以及发送邮件的程序名称。c 当邮件程序连上服务器后，进如下一步打开邮件对话，利用winsock控件发送对话信息：wsock.senddata "helo" & " " & wsock.localhostname & vbcrlf假如smtp服务器没有返回“250” 应答码，则提醒“unable to establish transaction”.d 因为现在的邮件服务器多采纳esmtp协议，因此需要客户端程序发送用

5、户名与密码等认证信息，故在打开对话过后便进入“authentication“过程，：wsock.senddata "auth login" & vbcrlfif not waitforresponse("334", 10) thentxtmsg.text = "unable to connect with esmtp server."wsock.senddata encode(user) & vbcrlfwsock.senddata encode(pass) & vbcrlf在这里调用了自编的encode函数并

6、发送了经过base64编码的用户名与密码信息。e 接着是发送发送方与接受方的地址：wsock.senddata "mail from:" & " " & strfrommail & vbcrlf 发送方wsock.senddata "rcpt to:" & " " & strtomail & vbcrlf 接受方f 下一步是发送消息体（针对不含附件的rfc822邮件）：wsock.senddata "data" & vbcrlf 发送消息体

7、wsock.senddata mdata & vbcrlf 发送邮件标题wsock.senddata strcontent & vbcrlf 发送正文wsock.senddata "." & vbcrlf 发送结束符g 在发送邮件时做了附件的推断：if combo1.list > 0 then 假如附件列表非空则转入mime邮件的构造。mime邮件的标题部分与rfc822相同，但要扩充一些内容wsock.senddata "mime-version:1.0" & vbcrlfwsock.senddata "

8、content-type:multipart/mixed;" & vbcrlfwsock.senddata " boundary = unique-boundary" & vbcrlf & vbcrlfwsock.senddata " random garbage here " & vbcrlf & vbcrlfwsock.senddata vbcrlf & "-unique-boundary" & vbcrlfwsock.senddata "content-

9、type: text/plain;charset=us-ascii" & vbcrlf & vbcrlfwsock.senddata strcontent & vbcrlf & vbcrlfwsock.senddata "-unique=boundary" & vbcrlfwsock.senddata "content-type: multipart/parallel;boundary = unique-boundary-2" & vbcrlf & vbcrlfwsock.senddata

10、 "-unique=boundary -2" & vbcrlfwsock.senddata "content-type: application/octest-stream;" & vbcrlfwsock.senddata "name =" & strattachname & vbcrlfwsock.senddata "content-transfer-encoding:base64" & vbcrlfwsock.senddata "content-disposition:inline;" & vbcrlf这里附件也通过编码加入了邮件