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

这个例子网上有很多版本，但是通常能发的，异常管理不是做的很好，这里的代码是我稍加整理的。包含了认证过程，我想现在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
        Fourth = "From:" + Chr(32) + FromName + vbCrLf
        ' Who it going to
        Fifth = "To:" + Chr(32) + ToNamet