VBNet - Форум - Опять о winsock

Вопрос: Опять о winsock Добавлено: 25.03.05 18:36

Автор вопроса: programmernaVB

Так и не нашел ответов по незаметной отправки почты. :(
Поискал кое-что в инете. и Вот что нашел:

Private Sub Command1_Click()
Winsock.Close
Winsock.RemoteHost = "mail.ru"
Winsock.Connect
End Sub

Private Sub winsock_Connect()
Data = "RSET" & vbCrLf & "HELO " & Winsock.LocalIP & vbCrLf
Winsock.SendData Data
Data = "MAIL FROM: " & "adres@mail.ru" & vbCrLf Winsock.SendData Data
Data = "RCPT TO: " & "adres@mail.ru" & vbCrLf Winsock.SendData Data
Data = "DATA" & vbCrLf
Winsock.SendData Data
Data = "Subject: " & "Тема" & vbCrLf & vbCrLf & "Само сообщение" & 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(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 Description, vbOKOnly + vbCriticalEnd Sub

При запуске вылазиет ошибка: Adress is not avaliable from the local machine
При отладке (запуск ч/з F8) ошибка не вылазиет, но на винсок ничего не приходит :(((
В чем причина?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: DaSharm ICQ: 780477 Вопросов: 72 Ответов: 1297	Web-сайт: dasharm.com Профиль \| \| #1	Добавлено: 25.03.05 22:14
	Winsock.RemoteHost = "mail.ru" что это вообще такое? насколько я знаю SMTP сервер на майл.ру - smtp.mail.ru измени: Winsock.RemoteHost = "smtp.mail.ru" П. С. учи английский, ведь ясно сказано: Adress is not avaliable from the local machine адрес не доступен из локального компа, типа, невозможен коннект. отладчиком пользоваться в ВБ нет смысла, там нет утечек памяти 2П. С. очень плохой пример отправки, если надо будет, то дам свой на VBSocket1A, он намного лучше (и винсок не используется) Ответить

Номер ответа: 2 Автор ответа: Карась Вопросов: 6 Ответов: 10	Профиль \| \| #2	Добавлено: 26.03.05 06:47
	а pop server pop.mail.ru Ответить

Страница: 1 |