| Вопрос: Отправка почты из VB .NET | Добавлено: 22.03.03 09:34 |
Автор вопроса:  Павел | Web-сайт: www.vbnet.ru | ICQ: 326066673 |
|
Пытаюсь сделать пример отправки почты через Winsock на VB .NET. Проблемы с кодировочкой (вместо "Тест" в теме идёт "РўРµСС"). Отправка почты - дело для меня новое, я вообще раньше с сетью не работал... Подскажите что не так. Вот код... Посмотрите, плиз...
Const READ_BUFFER_SIZE As Integer = 255 Const PORT_NUM As Integer = 25 Private client As TcpClient Private readBuffer(READ_BUFFER_SIZE) As Byte Private strEncodedFiles As String Private State As SMTP_State Private Enum SMTP_State MAIL_CONNECT MAIL_HELO MAIL_FROM MAIL_RCPTTO MAIL_DATA MAIL_DOT MAIL_QUIT End Enum Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click Try ' The TcpClient is a subclass of Socket, providing higher level ' functionality like streaming. client = New TcpClient(txtSMTP.Text, PORT_NUM) ' Start an asynchronous read invoking DoRead to avoid lagging the user ' interface. client.GetStream.BeginRead(readBuffer, 0, READ_BUFFER_SIZE, AddressOf DoRead, Nothing) State = SMTP_State.MAIL_CONNECT Catch Ex As Exception &nbs |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 23.03.03 13:39 |
|
Знаешь, я с VB NET вообще не знаком, я только хочу посочуствовать. Я уже около месяца пытаюсь разобратся, или дождатся помощи с этого форума, как в VB6 отправить письмо, и что? НЕЧЕГО!!! Тихо как в гробу!!! Наверное VB плохо умеет работать с сетью. Если ты знаешь как отправить в VB6 - ПОМОГИ!!!! Что у меня неполучается, можешь (если хочешь) прочитать в моём вопросе на эту тему, который немного ниже...
|
||
|
Номер ответа: 2 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 23.03.03 15:26 |
|
Представь себе, на VB6 отправить почту просто. На этом сайте даже пример есть: http://vbnet.ru/sample/zip/mailsender.zip Там даже можно аттачи пристёгивать. Я на основе этого примера пытаюсь сделать отправку почты в VB .NET, но вот на проблему наткнулся... И почему-то в Win-приложениях недоступно пространство имён system.web.mail, иначе я бы парой строк кода мог бы письма отправлять... Только что с microsoft.com какой-то пример качнул, сейчас разбираться буду. |
||
|
Номер ответа: 3 Автор ответа: Creator Вопросов: 11 Ответов: 61 |
Профиль | | #3 | Добавлено: 25.03.03 07:53 |
|
Господа будте продвинутей, на этот счет у мелкософты всё Ok! Я к примеру работаю через SMTP......Rhenjz Вам скажу и велосипед не надо изобретать...... Обьявления: Private Email As SmtpMail Private sSendTo As String = String.EmptyPrivate sSMTPServer As String = String.EmptyДалее в коде примерно так: Dim eMail As New System.Web.Mail.MailMessage()Dim sendnow As System.Web.Mail.SmtpMaileMail.Body = "Текст сообщения" eMail.Subject = "Заголовок" eMail.From = "От кого" eMail.To = sSendTo sendnow.SmtpServer = sSMTPServer sendnow.Send(eMail) Вроде так , если что пиши у меня всё уже давно обёрнуто в классы.... |
||
|
Номер ответа: 4 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #4 | Добавлено: 25.03.03 09:42 |
| Да я уже понял... Сначала я так и хотел сделать. Но стал импортировать пространство имён System.Web и ... оно мне говорит, что такого вообще нету. Вот я и подумал, что оно доступно только в Web-приложениях, а в Win нужно как-то по-другому. Вчера с microsoft.com стянул пример отправки почты из VB .NET. Там как раз именно так. | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 25.03.03 12:36 |
|
ПАВЕЛ, негони!? У меня тот пример есть, и он не работает!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !Хоть тресни!, расскажи как ты его заставил работать, или прокоментируй код, если не лень
|
||
|
Номер ответа: 6 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #6 | Добавлено: 26.03.03 03:38 |
| Не знаю. Я правда на работоспособность его не проверял... Но вполне возможно, что он будет работать только на NT системах т.к. для отправки писем используется CDO. | ||
|
Номер ответа: 7 Автор ответа:  Стас ICQ: 337545479 Вопросов: 0 Ответов: 2 |
Профиль | | #7 | Добавлено: 06.07.06 18:27 |
|
Sub Authenticate()
'create the mail message Dim mail As New MailMessage() 'set the addresses mail.From = New MailAddress("me@mycompany.com" 
mail.To.Add("you@yourcompany.com"
'set the content mail.Subject = "This is an email" mail.Body = "this is the body content of the email." 'send the message Dim smtp As New SmtpClient("127.0.0.1"
'to authenticate we set the username and password properites on the SmtpClient smtp.Credentials = New NetworkCredential("username", "secret"
smtp.Send(mail) End Sub 'Authenticate Все работает! |
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 08.07.06 02:33 |
|
2хакер, а что тебе мешает smtp протокол посмотреть и MIME если захочешь аттачи слать?
ЗЫ написанный на ассемблере клиент кидал в соответствующий раздел на форуме... |
||
|
Номер ответа: 9 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #9 | Добавлено: 08.07.06 03:10 |
угу, и тебя с похмелом 
|
||
|
Номер ответа: 10 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #10 | Добавлено: 08.07.06 03:14 |
|
Знаешь, я с VB NET вообще не знаком... Ради этого топик вытащили??
|
||
|
Номер ответа: 11 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #11 | Добавлено: 08.07.06 22:01 |
|
ещё один...
смотрите на дату! |
||
Страница: 1 |