Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: НАРОД, я в унитазе утоплюсь если не сделаю!!! Добавлено: 22.10.04 21:00  

Автор вопроса:  BUG(O)R | Web-сайт: hunger.ru | ICQ: 827887 
Люди, помогите, кто-нить дайте линк или киньте сюда:zona_bugor@bk.ru РАБОЧИЙ пример программы для отправки почты, написанной, есесно, на VB!!!
Плизз!!!

Ответить

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

Номер ответа: 1
Автор ответа:
 Eddie



Вопросов: 11
Ответов: 120
  Профиль | | #1 Добавлено: 22.10.04 21:35
Поищи по форуму, много Раз Это обсуждалось

Ответить

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



Вопросов: 19
Ответов: 118
  Профиль | | #2 Добавлено: 22.10.04 21:59
А не пробовал искать в исходниках?
там точно есть, точно не пробовал?
а я нашел:

Private Sub Command1_Click()
Winsock.Close
Winsock.RemoteHost = Text1.Text
Winsock.RemotePort = "25"
Winsock.Connect
T.Text = ""
Label1.Caption = 1
End Sub




Private Sub Command4_Click()

End Sub

Private Sub tema_Change()

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub winsock_Connect()
Data = "RSET" & vbCrLf & "HELO " & Winsock.LocalIP & vbCrLf
T.Text = T.Text + "[Îòïðàâëÿåì]: " & Data
Winsock.SendData Data
End Sub
Private Sub winsock_DataArrival(ByVal bytesTotal As Long)
Winsock.GetData Data, vbString
T.Text = T.Text + "[Ïîëó÷åíî]: " & Data
megadata = Left(Data, 3)

Select Case megadata

Case "421"
MsgBox "Ïî÷òîâûé ñåðâåð ïðèíóäèòåëüíî ðàçîðâàë ñîåäèíåíèå, ïîïðîáóéòå ïîâòîðèòü ñíîâà", vbCritical + vbOKOnly


Case "250"
If Label1.Caption = 1 Then
Data = "MAIL FROM: " & Text3.Text & vbCrLf
Winsock.SendData Data
Data = "RCPT TO: " & Text2.Text & vbCrLf
T.Text = T.Text + "[Îòïðàâëÿåì]: " & Data
Winsock.SendData Data
Label1.Caption = 2
Exit Sub
End If

If Label1.Caption = 2 Then
Data = ";DATA" & vbCrLf
T.Text = T.Text + "[Îòïðàâëÿåì]: " & Data
Winsock.SendData Data
Label1.Caption = 3
Exit Sub
End If

If Label1.Caption = 3 Then
Data = "QUIT" & vbCrLf
Winsock.SendData Data
T.Text = T.Text + "[Îòïðàâëÿåì]: " & Data
If Text5.Text <= 1 Then
MsgBox "&#209;&#239;&#224;&#236; &#231;&#224;&#226;&#229;&#240;&#248;&#184;&#237; :)"

Exit Sub
End If
Text5.Text = Text5.Text - 1
End If


Case "354"
Data = "Subject: " & Text4.Text & vbCrLf & vbCrLf & ttt.Text & vbCrLf
T.Text = T.Text + "[&#206;&#242;&#239;&#240;&#224;&#226;&#235;&#255;&#229;&#236;]: " & Data
Winsock.SendData Data

Data = "." & vbCrLf
T.Text = T.Text + "[&#206;&#242;&#239;&#240;&#224;&#226;&#235;&#255;&#229;&#236;]: " & Data
Winsock.SendData Data


Case "221"
If Text5.Text <= 1 Then Exit Sub
Command1_Click

Case "403"
Command1_Click

End Select

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 + vbCritical, "&#206;&#248;&#232;&#225;&#234;&#224;!"
End Sub


Case "354"
Data = "Subject: " & Text4.Text & vbCrLf & vbCrLf & ttt.Text & vbCrLf
T.Text = T.Text + "[&#206;&#242;&#239;&#240;&#224;&#226;&#235;&#255;&#229;&#236;]: " & Data
Winsock.SendData Data

Data = "." & vbCrLf '&#199;&#224;&#234;&#224;&#237;&#247;&#232;&#226;&#224;&#229;&#236; &#241;&#238;&#238;&#225;&#249;&#229;&#237;&#232;&#229;
T.Text = T.Text + "[&#206;&#242;&#239;&#240;&#224;&#226;&#235;&#255;&#229;&#236;]: " & Data
Winsock.SendData Data


Case "221"
If Text5.Text <= 1 Then Exit Sub
Command1_Click

Case "403"
Command1_Click

End Select

End Sub




'&#206;&#239;&#255;&#242;&#252; &#230;&#229; - &#253;&#242;&#238; &#237;&#229; &#239;&#238;&#235;&#237;&#238;&#241;&#242;&#252;&#254; &#240;&#224;&#225;&#238;&#247;&#224;&#255; &#239;&#240;&#238;&#227;&#240;&#224;&#236;&#236;&#224;, &#224; &#242;&#238;&#235;&#252;&#234;&#238; &#231;&#224;&#240;&#232;&#241;&#238;&#226;&#234;&#224;. &#196;&#229;&#235;&#224;&#233;&#242;&#229; &#241;&#224;&#236;&#232;. (&#197;&#241;&#235;&#232; &#234;&#242;&#238;-&#237;&#232;&#225;&#243;&#228;&#252; &#247;&#242;&#238;-&#242;&#238; &#241;&#228;&#229;&#235;&#224;&#229;&#242; - &#239;&#232;&#248;&#232;&#242;&#229; &#236;&#237;&#229; &#237;&#224; gaidar@vbstreets.ru, &#239;&#238;&#236;&#238;&#227;&#243;).


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 + vbCritical, "&#206;&#248;&#232;&#225;&#234;&#224;!"
End Sub

добавь че не хватает и просто пользуй,
если не совсем еще народ обленился поймеш.

Ответить

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



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
  Web-сайт: barsik.newmail.ru
 Профиль | | #3 		Добавлено: 23.10.04 13:31
&#235;&#232;

а че это за символы???

а насчет вопроса гляньв примерах там есть пример данилы беляева..

у мя есть исходник с прицеплением к письму файла... могу выслать...

Ответить

Номер ответа: 4
Автор ответа:
 GlooM



ICQ: 348453688 

Вопросов: 88
Ответов: 356
  Web-сайт: newlc.info
 Профиль | | #4 		Добавлено: 23.10.04 16:01
а че это за символы???

это так записываются буквы...например в FrontPage...

Ответить

Номер ответа: 5
Автор ответа:
 BUG(O)R



ICQ: 827887 

Вопросов: 13
Ответов: 142
  Web-сайт: hunger.ru
 Профиль | | #5 		Добавлено: 23.10.04 20:42
Barsik, пришли рабочий пример пожалуста, буду очень признателен.

Ответить

Номер ответа: 6
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
  Профиль | | #6 Добавлено: 23.10.04 23:39
2 BUG(O)R

ой... молодость вспоминию, я когда то прям как ты немог найти рабочий, потом понял что все они рабочие :) токо все надо дорабатывать. Вообще РИАЛЬНО рабочих тоже полно щас, если что я могу тебя просто закидать ими... свисни если что.

Ответить

Номер ответа: 7
Автор ответа:
 Barsik



Разработчик Offline Client

ICQ: 343368641 

Вопросов: 17
Ответов: 686
  Web-сайт: barsik.newmail.ru
 Профиль | | #7 		Добавлено: 24.10.04 01:15
это так записываются буквы...например в FrontPage...

а причем тут фронт пейдж ??? наверно просто форум глючит.... Павлу на заметку...

Barsik, пришли рабочий пример пожалуста, буду очень признателен.

ушло... а что примерчик данилы беляева не понравился???

Ответить

Номер ответа: 8
Автор ответа:
 BUG(O)R



ICQ: 827887 

Вопросов: 13
Ответов: 142
  Web-сайт: hunger.ru
 Профиль | | #8 		Добавлено: 24.10.04 07:08
HACKER, закидай, буду благодарен, мне собственно только отправка нужна, получение не обязательно!!!
zona_bugor@bk.ru

Ответить

Номер ответа: 9
Автор ответа:
 BUG(O)R



ICQ: 827887 

Вопросов: 13
Ответов: 142
  Web-сайт: hunger.ru
 Профиль | | #9 		Добавлено: 24.10.04 07:10
Barsik, спасибо друг!!! Удачи тебе!!!

Ответить

Номер ответа: 10
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
  Web-сайт: www.vbnet.ru
 Профиль | | #10 		Добавлено: 24.10.04 08:49
наверно просто форум глючит....

Не надо на форум наговаривать :)
У него именно в исходном коде такие баги были, потому что в том же
самом сообщении другие русские буквы выглядят нормально.

А эти коды - эскейп-последовательности... В XML их еще называют
entity. Предназначены для кодирования симолов, которые не могут
использоваться в документе (например, < > или &;). Некоторые
HTML-редакторы таковыми считают и символы русского языка.

Ответить

Номер ответа: 11
Автор ответа:
 Dark Engine



ICQ: 343191665 

Вопросов: 51
Ответов: 98
  Web-сайт: www.wentas.2bb.ru
 Профиль | | #11 		Добавлено: 26.10.04 12:38
Прива! Прости что не по теме! Да и ник не тот! Но вот увидел и решил напомнить о своем существовании. Теперь представлюсь: Писал я тебе от имени Алекса, кажется. И по теме догонялок! Если успел забыть - напомню!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам