- Код: Выделить всё
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
Я поставил обьект winsoc, сделал всё как написанно, все переменные у меня содержат правильные данные, но он даже не посылает сигнал. Что делать ?
[/b]
