在VB6.0中使用Socket发送带SMTP认证的邮件

最新推荐文章于 2022-05-06 10:29:37 发布

danny_xcz

最新推荐文章于 2022-05-06 10:29:37 发布

阅读量2k

点赞数

分类专栏： Ajax 文章标签： socket vb string table integer date

本文链接：https://blog.youkuaiyun.com/danny_xcz/article/details/470493

版权

本文提供了一段VB6.0代码，用于通过Socket连接SMTP服务器并进行SMTP认证发送邮件。代码中包含了连接、认证、发送邮件等关键步骤，支持Base64加密的用户名和密码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这个例子网上有很多版本，但是通常能发的，异常管理不是做的很好，这里的代码是我稍加整理的。包含了认证过程，我想现在SMTP一般都是要认证的吧。不要认证的只需把相应的行去掉即可。

代码如下：

Dim Response As String, Reply As Integer
Dim DateNow As String, first As String, Second As String, Third As String
Dim Fourth As String, Fifth As String, Sixth As String
Dim Seventh As String, Eighth As String
Dim Start As Single, Tmr As Single

Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)
    Winsock1.LocalPort = 0 ' Must set local port to 0 (Zero) or
                            'you can only send 1 e-mail per program
                            'start

    If Winsock1.State = sckClosed Then 'Check to see if socet is closed
        DateNow = Format(Date, "Ddd") & ", " _
                & Format(Date, "dd Mmm YYYY") & " " _
                & Format(Time, "hh:mm:ss") & "" & " -0600"

        ' Get who's sending E-Mail address
        first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf
        ' Get who mail is going to
        Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf
        ' Date when being sent
        Third = "Date:" + Chr(32) + DateNow + vbCrLf
        ' Who's Sending
        Fou

最低0.47元/天解锁文章