VBNet - Форум

Вопрос: Winsock Добавлено: 12.06.02 18:38

Автор вопроса: Smith | ICQ: adamis@list.ru

У кого есть толковый пример работы с winsock?(только отправка сообщения).
И почему следующий код писем не шлет?
Private Sub Winsock1_Connect()
Winsock1.Close
Winsock1.Connect
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data
Select Case state
Case SConnect
     state = SHelo
     Label1 = "Connect"
Case SHelo
     state = SMailFrom
     Winsock1.SendData "Helo" & vbCrLf
     Label1 = "Helo"
Case SMailFrom
     state = SRcptTo
     Winsock1.SendData "MAIL FROM:" & "****@mail.ru" & vbCrLf
     Label1 = "Mail From"
Case SRcptTo
     state = SData
     Winsock1.SendData "Rcpt To:" & "*****@mail.ru" & vbCrLf
     Label1 = "Mail TO"
Case SData
     Winsock1.SendData "DATA" & vbCrLf: Label1 = "DATA"
     Winsock1.SendData "Subject:" & "HACK & vbCrLf": Label1 = "Subject"
     Winsock1.SendData "message:" & message & vbCrLf: Label1 = "Message"
Case SDot
     Winsock1.SendData "." & vbCrLf: Label1 = "DOT"
Case SQuit
     Winsock1.SendData "quit" & vbCrLf: Label1 = "Qiut"
End Select
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302	Профиль \| \| #1	Добавлено: 12.06.02 18:43
	А к чему у тебя Winsock1.Connect ? Ответить

Номер ответа: 2
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #2

Добавлено: 12.06.02 18:57

оёёй, я вот щас на эту функцию смотрел долго долго.... но так ничерта и не понял. Для чего ж такое нужно? И чаво оно делает?

З.Ы. У тебя техопечатка в последнем Case вместо Quit написано Qiut

Ответить

Номер ответа: 3
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #3

Добавлено: 12.06.02 19:05

Угадай с трех раз, где я это нашел?

http://www.vbnet.ru/sample/zip/MailSender.zip

Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #4	Добавлено: 12.06.02 19:33
	Этот MailSender - непашет! Ответить

Номер ответа: 5
Автор ответа:

valery

Вопросов: 6
Ответов: 7

Профиль | | #5

Добавлено: 04.07.02 15:41

А так не пробовал?

Winsock1.Connect SMTPserverName, OutPortNumber

Ответить

Номер ответа: 6 Автор ответа: Millenium ICQ: 629966 Вопросов: 118 Ответов: 903	Web-сайт: www.aliyev.us Профиль \| \| #6	Добавлено: 28.11.09 12:17
	Winsock1.SendData "ATA" & vbCrLf: Label1 = "ATA" Winsock1.SendData "Subject:" & "HACK & vbCrLf": Label1 = "Subject" Winsock1.SendData "message:" & message & vbCrLf: Label1 = "Message" У тебя ошибка во второй строке: надо Winsock1.SendData "Subject:" & "HACK" & vbCrLf и убрать " в конце. Юзай MAPI.SEND Ответить

Номер ответа: 7 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #7	Добавлено: 28.11.09 16:14
	И звание "некрофил года" достается... Millenium'у Ответить

Страница: 1 |