Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS

←   Январь 2006   →
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

За последние 60 дней ни разу не выходила

Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

1.824 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Basic / VBA

Информационный Канал Subscribe.Ru

---

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 207
от 25.01.2006, 06:42

Администратор:	Калашников О.А.
В рассылке:	Подписчиков: 111, Экспертов: 20
В номере:	Вопросов: 1, Ответов: 1

---

Вопрос № 33656: Здравствуйте. Уважаемые эксперты, не получил конкретного ответа и задаю совопрос снова, мне один эксперт посоветовал ссылки с исходниками, я их просмотрел но для своего случая ни чего не подходит, ну вот собственно сам вопро: (и снова тоже самое) ...

---

Вопрос № 33.656

Здравствуйте. Уважаемые эксперты, не получил конкретного ответа и задаю совопрос снова, мне один эксперт посоветовал ссылки с исходниками, я их просмотрел но для своего случая ни чего не подходит, ну вот собственно сам вопро: (и снова тоже самое) пишу программу для отправки писем, всё нормально отправляет письма, ну вот проблема, нужно как-то получать ответные сообщения от mail сервера, вот посмотрите приложение там код, в нём я использую такую вещь как Pause 0.9, чтоб mail сервер успел обработать отправленные данные, а мне надо чтоб если mail сервер отправил сообщение ну например 250 +ОК т.е все нормально, то сразу переходить к следующему шагу, а не делать паузу, тем самым увеличиться скорость отправки писем, и можно будет выдать определенное сообщение юзеру, какая ошибка (например сервер не отвечает и др.). Заранее благодарю. Приложение: Option Explicit Dim a As Variant Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Const HWND_TOPMOST = -1 Const HWND_NOTOPMOST = -2 Const SWP_NOSIZE = &H1 Const SWP_NOMOVE = &H2 Const SWP_NOACTIVATE = &H10 Const SWP_SHOWWINDOW = &H40 Private Declare Sub SetWindowPos Lib "User32" _ (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal X As Long, _ ByVal Y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Function ReleaseCapture Lib "User32" () As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call ReleaseCapture Call SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End Sub Sub Pause(duration) Dim Current As Long Current = Timer Do Until Timer - Current >= duration DoEvents Loop End Sub Private Sub Form_Load() Timer2 = False ProgressBar1.Visible = False Label2.BackColor = RGB(192, 192, 192) Label3.BackColor = RGB(192, 192, 192) App.TaskVisible = False End Sub Private Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Winsock1.Close Label2.BackColor = RGB(32, 32, 32) Label2.ForeColor = vbWhite Winsock1.RemoteHost = Text5.Text Winsock1.RemotePort = 25 Winsock1.Connect End Sub Private Sub Label2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.BackColor = RGB(192, 192, 192) Label2.ForeColor = vbBlack End Sub Private Sub Label3_Click() Winsock1.Close End End Sub Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3.BackColor = RGB(32, 32, 32) Label3.ForeColor = vbWhite End Sub Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Label3.BackColor = RGB(192, 192, 192) Label3.ForeColor = vbBlack End Sub Private Sub Label4_Click() If Check1 = 1 Then Form3.Visible = True If Check1 = 0 Then Form2.Visible = True End Sub Private Sub Timer1_Timer() If Check1 = 1 Then Lamer1.Caption = "From" Lamer2.Caption = "To" Lamer3.Caption = "Subject" Lamer4.Caption = "Message" Label1.Caption = "Mail server" Label2.Caption = "Send" Label3.Caption = "Cancel" Check1.Caption = "Русский" Text2.ToolTipText = "Here enter e-mail of the addressee of the letter" Text3.ToolTipText = "Here enter a theme of the message" Text4.ToolTipText = "Here enter the text of the message" Text5.ToolTipText = "Here enter anyone Mail server (example: mail.glazov.net)" Label4.ToolTipText = "Help" End If If Check1 = 0 Then Lamer1.Caption = "От:" Lamer2.Caption = "Кому:" Lamer3.Caption = "Тема:" Lamer4.Caption = "Текст:" Label1.Caption = "Mail сервер:" Label2.Caption = "Послать" Label3.Caption = "Отмена" Check1.Caption = "English" Text2.ToolTipText = "Сюда введите e-mail получателя письма" Text3.ToolTipText = "Сюда введите тему сообщения" Text4.ToolTipText = "Сюда введите текст сообщения" Text5.ToolTipText = "Сюда введите любой Mail сервер (можете: mail.glazov.net)" Label4.ToolTipText = "Помощь" End If End Sub Private Sub Winsock1_Close() Winsock1.Close End Sub Private Sub Winsock1_Connect() Winsock1.SendData "HELO " & "x" & vbCrLf Pause 0.9 a = 20 ProgressBar1.Visible = True Timer2 = True a = 30 Winsock1.SendData "MAIL FROM: <" & Text1.Text & ">" & vbCrLf Pause 0.9 a = 50 Winsock1.SendData "RCPT TO: <" & Text2.Text & ">" & vbCrLf Pause 0.9 Winsock1.SendData "DATA" & vbCrLf Pause 0.9 a = 70 Winsock1.SendData "SUBJECT:" & Text3.Text & vbCrLf Pause 0.9 Winsock1.SendData Text6.Text + Text4.Text & vbCrLf + "</html>" Pause 0.9 a = 90 Winsock1.SendData vbCrLf & "." & vbCrLf Pause 0.9 a = 100 Timer2 = False ProgressBar1.Visible = False a = 0 Winsock1.Close If Check1 = 1 Then MsgBox "The letter is delivered!", vbInformation, "Anonym mail" If Check1 = 0 Then MsgBox "Письмо доставлено!", vbInformation, "Anonym mail" End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock1.GetData data, vbString End Sub Private Sub Winsock1_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) Winsock1.Close End Sub Private Sub Form_Activate() SetWindowPos Me.hwnd, _ HWND_TOPMOST, 0, 0, 0, 0, _ SWP_NOACTIVATE Or SWP_SHOWWINDOW Or _ SWP_NOMOVE Or SWP_NOSIZE End Sub Private Sub Timer2_Timer() ProgressBar1 = a End Sub

Отправлен: 20.01.2006, 06:41 Вопрос задал: Неизвестнов Том (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: _Виталий Здравствуйте, Неизвестнов Том! Видимо плохо смотрели;-) В приложении кусок кода из примера QuckMail, который нужно вставить в ваш код. P.S. У меня складывается такое впечатление, что в основном на РусФаке вопросы задают очень ленивые люди. Неизвестнов Том не принимайте всё на свой счет, это я делаю вывод в общем;-) Приложение: 'объявите две переменные, чтоб они были видны во всех функциях Dim strResponse As String Dim blnTimeOut As Boolean Private Sub SendMail() 'теперь замените у себя строки "Pause 0.9" на ниже приведенную 'строку. Где "250" - это ответ сервера который ожидается при удачном 'ходе событий, а "20" время в секундах ожидания данного ответа. 'Коды ответов сервера можете найти в описании протокола SMTP или 'в примере "QuckMail", откуда и взят этот код. If GetServerResponse("250", 20) = False Then GoTo errHandlerSendMail errHandlerSendMail: If blnTimeOut = True Then MsgBox "Failed sending the file: Timeout Error.", vbCritical End If End Sub Private Function GetServerResponse(strAnswer As String, intdelay As Integer) As Boolean Dim lngTimeStart blnTimeOut = False lngTimeStart = Now Do While Left(strResponse, 3) <> strAnswer DoEvents ' wait maximum intdelay (seconds), after that: timeout If DateDiff("s", lngTimeStart, Now) > intdelay Then blnTimeOut = True: Exit Do Loop strResponse = "" GetServerResponse = Not blnTimeOut End Function Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData strResponse End Sub

Ответ отправил: _Виталий (статус: 10-ый класс) Отправлен: 20.01.2006, 09:43 Оценка за ответ: 5 Комментарий оценки: Да, наверняка ваш вывод правильный. А я ж это пробовал (If GetServerResponse("250", 20) = False Then GoTo errHandlerSendMail), покопался не много, не прошло и бросил. Следующий раз исправлюсь. Буду копать до конца. Так что получается что (по крайней мере я) действительно ленивый! Спасибо за ответ.

---

Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

---

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале

---

Subscribe.Ru Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора

Подписан адрес: Код этой рассылки: comp.soft.prog.basicvba Архив рассылки

Отписаться Вебом Почтой Вспомнить пароль

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}