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

最新推荐文章于 2024-02-03 05:00:00 发布

原创

最新推荐文章于 2024-02-03 05:00:00 发布 · 2.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#tcp/ip #服务器 #网络 #电子邮件

本文介绍了通过SMTP协议利用TCP/IP进行电子邮件发送的过程。提供了一段可以直接使用的源码，并指出代码可进行改造和打包，虽然较为简单，但有助于理解电子邮件的发送机制。

电子邮件发送，就是用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)
   serverAddr.sin_addr.s_addr = UrltoIPnumeric(Url)
   Dim iResult As Integer = connect(socketId ,CPtr(SOCKADDR Ptr ,@serverAddr) ,SizeOf(serverAddr))
   If (iResult < 0) Then closesocket(socketId) : Return "错误