WEB-



           

"" WEB- - 30


Debug.Print "QUIT"

Case MAIL_QUIT

Winsock1.Close

End Select

Else

Winsock1.Close

If Not m_State = MAIL_QUIT Then

MsgBox "SMTP Error: " & strServerResponse, _

vbInformation, "SMTP Error"

Else

MsgBox "Message sent successfuly.", vbInformation

End If

End If

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "Winsock Error number " & Number & vbCrLf & _

Description, vbExclamation, "Winsock Error"

End Sub

Winsock. . . .

M_UUCode.bas

Attribute VB_Name = "M_UUCode"

Public Function UUDecodeToFile(strUUCodeData As String, strFilePath As String)

Dim vDataLine As Variant

Dim vDataLines As Variant

Dim strDataLine As String

Dim intSymbols As Integer

Dim intFile As Integer

Dim strTemp As String

If Left$(strUUCodeData, 6) = "begin " Then

strUUCodeData = Mid$(strUUCodeData, InStr(1, strUUCodeData, vbLf) + 1)

End If

If Right$(strUUCodeData, 4) = "end" + vbLf Then

strUUCodeData = Left$(strUUCodeData, Len(strUUCodeData) - 7)

End If

intFile = FreeFile

Open strFilePath For Binary As intFile

vDataLines = Split(strUUCodeData, vbLf)

For Each vDataLine In vDataLines

strDataLine = CStr(vDataLine)

intSymbols = Asc(Left$(strDataLine, 1))

strDataLine = Mid$(strDataLine, 2, intSymbols)

For i = 1 To Len(strDataLine) Step 4