基于SMTP协议的发送邮件WINSOCK编程

Freemikej

Winsock编程发送邮件的代码，大部分都是匿名发送的那种。很容易因为邮件服务器策略导致发送失败。现在的Smtp都需要身份验证(ESmtp),下面的代码将实现带用户名验证的winsock发送程序。

具体smtp协议的一些命令参考：http://bbs.5dmail.net/thread-175855-1-1.html

1 设置Winsock控件的通信协议（TCP)，远程主机ip,远程连接端口（通常为25）。然后连接远程主机。
例如： Wskemail.Protocol = sckTCPProtocol
     Wskemail.RemoteHost = "smtp.163.com"
     Wskemail.RemotePort = 25
     Wskemail.Connect

2 如果winsock接受到的服务器的回应码为220，表明服务器端接受了客护端的连接请求。这样可以进行下一步的通信：客户端发送EHLO消息，该消息表示客户希望基于ESMTP协议的电子邮件传递。

例如：  Wskemail.senddata("EHLO test"+VBcrlf)

3 如果winsock接受到服务器的回应码为250，表明服务器接受了客户端的通过ESMTP发送邮件的请求。
  这样可以进行下一步的通信：客户端发送AUTH LOGIN消息。
  例如：Wskemail.senddata("AUTH LOGIN"+VBcrlf)

4 如果winsock接收到服务器的回应码为334，表明服务器启动了一个认证过程。下一步期待用户输入用户名 。
  例如：Wskemail.senddata(Encode64("username")+VBcrlf)

5 如果winsock接收到服务器的回应码为334，表明服务器已经接受了用户名，下一步期待用户输入密码。
例如：Wskemail.senddata(Encode64("password")+VBcrlf)

6 如果winsock接收到服务器的回应码为235，表明认证成功完成。接着客户就可以发邮件了。
  发邮件具体过程如下：

  （1）客户端发送"mail from:"消息，该消息包含了发送人的email
        例如：Wskemail.sendata("mail from:"+chr(32)+"test@163.com"+VBcrlf)

  （2）当客户端接收到250，则继续发送"rcpt to:"消息，它包含了收件人的邮件地址。
        例如：Wskemail.senddata("rcpt to:"+chr(32)+"test@163.com"+VBcrlf)

  （3）当客户端接收到250，则继续发送“data”消息，它通知邮件服务器随后客户断将发送电子邮件数据。
        例如：Wskemail.senddata("data"+VBcrlf)

  （4）客户端如果接收到354的消息，客户端将发送电子邮件数据。电子邮件的数据包括以下字段：
        Date,From,To,X-Mailer以及邮件正文。电子邮件以"."结束。

        eg,Wskemail.senddata("Date:"+chr(32)+format(Date,"Ddd")&","&format(Date,"dd Mmm YYYY")&""&format(Time,"hh:mm:ss")&""&"-0600"+VBcrlf)
           Wskemail.senddata("From:"+chr(32)+"test"+VBcrlf)
           Wskemail.senddata("X-Mailer: vbemailsender"+VBcrlf)
           Wskemail.senddata("To:"+chr(32)+"test1"+VBcrlf)
           Wskemail.senddata("Subject:"+chr(32)+"how are you"+VBcrlf)
           Wskemail.sendtada("How are you, this is a test email"+VBcrlf)
           Wskemail.senddata("."+VBcrlf)

   （5）如果客户端接收到250的消息，表明电子邮件数据被成功发送。此时客户端如果希望与服务器断开连接，发送"quit"消息即可。如果客户端接收到221的消息，表明服务器已经终止了基于ESMTP协议的连接。
         例如： Wskemail.senddata("quit"+VBcrlf)

xiaoqiu

谢谢分享,学习下了~~