WEB-



           

"" WEB- - 29


Debug.Print "HELO " & strDataToSend

Case MAIL_HELO

m_State = MAIL_FROM

Winsock1.SendData "MAIL FROM:" & Trim$(txtSender) & vbCrLf

Debug.Print "MAIL FROM:" & Trim$(txtSender)

Case MAIL_FROM

m_State = MAIL_RCPTTO

Winsock1.SendData "RCPT TO:" & Trim$(txtRecipient) & vbCrLf

Debug.Print "RCPT TO:" & Trim$(txtRecipient)

Case MAIL_RCPTTO

m_State = MAIL_DATA

Winsock1.SendData "DATA" & vbCrLf

Debug.Print "DATA"

Case MAIL_DATA

m_State = MAIL_DOT

Winsock1.SendData "Subject:" & txtSubject & vbLf & vbCrLf

Debug.Print "Subject:" & txtSubject

Dim varLines As Variant

Dim varLine As Variant

Dim strMessage As String

strMessage = txtMessage & vbCrLf & vbCrLf & m_strEncodedFiles

m_strEncodedFiles = ""

varLines = Split(strMessage, vbCrLf)

strMessage = ""

For Each varLine In varLines

Winsock1.SendData CStr(varLine) & vbLf

Debug.Print CStr(varLine)

Next

Winsock1.SendData "." & vbCrLf

Debug.Print "."

Case MAIL_DOT

m_State = MAIL_QUIT

Winsock1.SendData "QUIT" & vbCrLf