| Вопрос: Незаметная оправка | Добавлено: 22.03.05 09:50 |
Автор вопроса:  programmernaVB
|
| Можно ли отправить почту незаметно для пользователя? (Желательно без дополнительных компонентов) |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  freeloader  ICQ: 50804884 Вопросов: 72 Ответов: 642 |
Web-сайт: Профиль | | #1 | Добавлено: 22.03.05 10:30 |
| В примеры кодов(библиотеку), дафига инфы и зачем пользователям жизнь портить? | ||
|
Номер ответа: 2 Автор ответа: programmernaVB Вопросов: 5 Ответов: 4 |
Профиль | | #2 | Добавлено: 22.03.05 11:29 |
| Ткни пожалуйста, ато я дофига чего перерыл, но ничего не нашел | ||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 22.03.05 21:50 |
|
http://www.dasharm.iatp.org.ua/index.php?action=download&la=1&nav=2&ish=10
|
||
|
Номер ответа: 4 Автор ответа: programmernaVBВопросов: 5 Ответов: 4 |
Профиль | | #4 | Добавлено: 24.03.05 07:23 |
|
Нашел пример, но он нерабочий. поправьте пожалуйста
Public Const mail_server_ip = "127.0.0.1", mail_server_port = 25 Public connected As Boolean Sub Form_Load() src = InputBox("Please, enter source mail-box" 
rcpt = InputBox("Please, enter recipient mail-box"
msg = InputBox("Please enter your message"
1 connected = False ws.Connect mail_server_ip, mail_server_port If wait(0.1) = False Then ws.Close k = k + 1 If k > 5 Then MsgBox ("Cann't connected mail server " + mail_server_ip + ":" + LTrim(Str(mail_server_port))): Exit Sub GoTo 1 End If k = 0 2 connected = False ws.senddata "HELO 127.0.0.1" + vbCrLf If wait(0.1) = False Then k = k + 1 If k > 5 Then MsgBox ("  ata send error1": Exit Sub
GoTo 2 End If 3 k = 0 connected = False ws.senddata "MAIL FROM:" + src + vbCrLf If wait(0.1) = False Then k = k + 1 If k > 5 Then MsgBox (" ata send error2": Exit Sub
GoTo 3 End If 4 k = 0 connected = False ws.senddata "PASS " + rcpt + vbCrLf If wait(0.1) = False Then k = k + 1 If k > 5 Then MsgBox (" ata send error3": Exit Sub
GoTo 4 End If 5 k = 0 connected = False ws.senddata " ATA" + vbCrLf
If wait(0.1) = False Then k = k + 1 If k > 5 Then MsgBox (" ata send error4": Exit Sub
GoTo 5 End If 6 k = 0 connected = False ws.senddata msg + vbLf + "." + vbCrLf + "QUIT" + vbCrLf If wait(0.3) = False Then k = k + 1 If k > 5 Then MsgBox (" ata send error5": Exit Sub
GoTo 6 End If MsgBox ("Ready!"
End Sub Function wait(sec) As Boolean wait = False x = Timer Do If connected = True Then wait = True: Exit Function DoEvents Loop While Timer - x End Function Sub ws_connect() connected = True End Sub Sub ws_SendComplete() connected = True End Sub |
||
Страница: 1 |