发送电子邮件源码(支持ESTMP协议，超文本电子邮件格式)[1]

经常在论坛看到网友提问如何发送电子邮件(smtp服务器认证),其实只要知道客户端与邮件服务器之间会话,用户
名和密码是通过base64编码加密后传送,问题就很容易被解决.协议使用方面和smtp协议使用是一模一样的,值得
注意的就是esmtp协议在用户名和密码验证时，服务器返回一个354的消息代号.本代码没有针对错误提示信息处理，
但保证能正常发送邮件,大家可以自己完善它,本代码还使用ime编码，这样就可以发送超文本电子邮件了。用过
foxmail4.1朋友应该知道，它实现的图文并茂声音邮件是它的一个亮点。本代码同样可以实现超文本邮件，要发
送mid做为背景音东的邮件，只要对ime代码部分稍加修改就可以实现,歌曲也须用base64编码后发送。目前流行
邮件病毒的原理和此一样,通过ie在ime中的漏洞实现,解决方法可以在注册表中删除ime编码格式，或者安装winamp
同样也可以解决它(需做的只要在winamp支持的文件格式全选上)，怎么越讲越跑题了，大家不要向我扔臭鸡蛋呀，
hehe,我也不多废话了，下附本软件所有代码.全整代码也可以在我的个人主页上下载,欢迎各位vb爱好与我联系，交
流编程技术.
主页:http://www.dapha.net
msn:dapha@msn.com
version 5.00
object = "{248dd890-bb45-11cf-9abc-0080c7e7b78d}#1.0#0"; "mswinsck.ocx"
begin vb.form form1
   borderstyle     =   1  'fixed single
   caption         =   "邮件发送程序(支持smtp服务器验证)"
   clientheight    =   5550
   clientleft      =   45
   clienttop       =   330
   clientwidth     =   5805
   linktopic       =   "form1"
   maxbutton       =   0   'false
   scaleheight     =   5550
   scalewidth      =   5805
   startupposition =   3  'windows default
   begin mswinsocklib.winsock winsock1
      left            =   2640
      top             =   2520
      _extentx        =   741
      _extenty        =   741
   end
   begin vb.textbox txtmessage1
      height          =   1695
      left            =   0
      multiline       =   -1  'true
      tabindex        =   16
      tooltiptext     =   "这里为超文本信件内容"
      top             =   3480
      width           =   5775
   end
   begin vb.textbox user
      height          =   270
      left            =   3960
      tabindex        =   15
      top             =   840
      width           =   1575
   end
   begin vb.textbox subject
      height          =   270
      left            =   960
      tabindex        =   12
      text            =   "你好"
      top             =   1320
      width           =   2295
   end
   begin vb.textbox txtserver
      height          =   270
      left            =   960
      tabindex        =   9
      text            =   "smtp.21cn.com"