Вот захотел попробовать написать (по книжке) отправку почтового сообщения. Все делал как по книжке (т.к. сам в VB - нуль, просто очень надо), но не работает. Посмотрите пожалуйста, может где и ошибка завалялась.

Код

Private Sub send_Click() Socket.Connect Dim strMessage As String strMessage = "HELO" & vbCrLf Socket.SendData strMessage <-- GetResponse strMessage = "MAIL FROM:" & FromName.Text & vbCrLf Socket.SendData strMessage <-- GetResponse strMessage = "RCPT TO:" & ToMail.Text & vbCrLf Socket.SendData strMessage <-- GetResponse strMessage = "DATA" & vbCrLf Socket.SendData strMessage <-- strMessage = "DATE:" & Format$(Now, "dd/mm/yy") & vbCrLf strMessage = strMessage & "SUBJECT:" & Subject.Text & vbCrLf & vbCrLf strMessage = strMessage & "BODY:" & body.Text & vbCrLf strMessage = strMessage & "." & vbCrLf Socket.SendData strMessage <-- GetResponse Socket.Close End Sub ------------------------------------------------ Private Sub GetResponse() Dim strTemp As String strTemp = "" Do While strTemp = "" Socket.GetData strTemp DoEvents Loop End Sub ------------------------------------------------

Ошибка такая:
"Wrong protocol or connection state for the requested transaction or request"
<-- - строки с ошибками

Буду очень благодарен, если что нибудь найдете.
Или если есть пошлите рабочий пример для наглядности )

Событие начала сеанса.

winsock.Close 'Закрываем на всякий случай возможно открытые сеансы
winsock.RemoteHost = FromHost 'Сообщаем, откуда происходит отправление
winsock.Connect 'Соединяем

Private Sub winsock_Connect() 'При соединении возникает такое событие
Data = "RSET" & vbCrLf & "HELO " & winsock.LocalIP & vbCrLf 'Сообщаем наш IP
winsock.SendData Data

Data = "MAIL FROM: " & FromUser & vbCrLf 'Сообщаем от кого сообщение
winsock.SendData Data

Data = "RCPT TO: " & ToUser & vbCrLf 'Сообщаем кому сообщение
winsock.SendData Data

Data = "DATA" & vbCrLf 'Посылаем команду DATA
winsock.SendData Data

'Посылаем тему сообщению
Data = "Subject: " & txtSubject.Text & vbCrLf & vbCrLf & Message & vbCrLf
winsock.SendData Data

Data = "." & vbCrLf 'Заканчиваем сообщение
winsock.SendData Data

Data = "QUIT" & vbCrLf 'Завершаем сеанс
winsock.SendData Data
End Sub

'Для отладки просматриваем то, что приходит с сервера
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
winsock.GetData Data, vbString
Debug.Print "[Получено]: " & Data
End Sub


Private Sub winsock_Error(Number As Integer, Description As String,
Scode As Long, Source As String,
HelpFile As String, HelpContext As Long,
CancelDisplay As Boolean)
MsgBox Description, vbOKOnly + vbCritical, "Ошибка!"
End Sub