VFB直接使用TCP发送电子邮件源码

电子邮件发送，就是用TCP发的，用的是 SMTP协议，其实就是服务器一句话，客户端一句话，这样相互说几句，就发邮件了，具体代码如下：

直接拷贝就可以使用，还可以自己轻松改造和打包。

#Include Once "win/winsock2.bi"
   Print 发邮件("370037607@qq.com","勇芳软件","验证码：9999")
Function 发邮件(接收方邮件地址 As String ,主题 As String ,内容 As String) As String
   '建立一个TCP通道 --------------
   Dim socketId As SOCKET = socket_(AF_INET ,SOCK_STREAM ,IPPROTO_TCP)
   If socketId = SOCKET_ERROR Then
      Return "错误，TCP通道"
   End If
   Dim Url  As String = "smtp.qq.com"       '邮件服务器
   Dim Port As UShort = 25                  '邮件服务器端口
   Dim 账号 As String = "你自己的QQ号@qq.com" '发送邮件的账号
   Dim 密码 As String = "QQ号邮箱密码"  '发送邮件的密码
   
   ' 连接目标服务器 ------------------
   Dim serverAddr As SOCKADDR_IN
   serverAddr.sin_family      = AF_INET
   serverAddr.sin_port        = htons(Port)
   serve