smtp-сервера

[artyuha]

Не пойму в чем причина. Не могу установить соединение с помощью WS с серверами smtp.mail.ru; smtp.rambler.ru; smtp.sms.ekotel.com.ua, хотя Аутлук отлично шлет сообщения на эти сервисы.
Код:

ws.LocalPort = 0
ws.RemoteHost = "smtp.mail.ru"
ws.RemotePort = 25
ws.Connect

Установка соединения завершается при статусе WS = 6 (Подключение к серверу), но далее дело не идет.
Хотя мне удавалось установить соединение со своим почтовым сервером smtp.lds.net.ua

Подскажите в чем причина.

[Antonariy]

А DataArrival ловить не пробовал?

[GSerg]

Смотри-ка, ещё один, причём через несколько часов... Забавно, да.
artyuha, ты не просмотрел названия первых 10 топиков в этом разделе? А стоило бы. http://bbs.vbstreets.ru/viewtopic.php?t=34175

[jangle]

Не пойму в чем причина. Не могу установить соединение с помощью WS с серверами smtp.mail.ru; smtp.rambler.ru; smtp.sms.ekotel.com.ua, хотя Аутлук отлично шлет сообщения на эти сервисы.

Эти smtp сервера требуют аунтификации пользователя, т.е. надо иметь зарегенный аккаунт и передавать логин и пароль к почтовому ящику, иначе спам рассылали бы мегатоннами

[GSerg]

jangle, сам понял что сказал?

[artyuha]

Смотри-ка, ещё один, причём через несколько часов... Забавно, да.
artyuha, ты не просмотрел названия первых 10 топиков в этом разделе? А стоило бы. http://bbs.vbstreets.ru/viewtopic.php?t=34175

Да че уж там. Читал. Да с HTTP- серверами у меня проблем нет. В том то и дело к rambler.ru по 80 порту соединение проходит отлично, а вот к smtp.rambler.ru по 25-му не взлетает.

[artyuha]

Не пойму в чем причина. Не могу установить соединение с помощью WS с серверами smtp.mail.ru; smtp.rambler.ru; smtp.sms.ekotel.com.ua, хотя Аутлук отлично шлет сообщения на эти сервисы.

Эти smtp сервера требуют аунтификации пользователя, т.е. надо иметь зарегенный аккаунт и передавать логин и пароль к почтовому ящику, иначе спам рассылали бы мегатоннами

Я че-то сам не понял. Помоему для отсылки почты другу мне пароль его почтового ящика не к чему.

[artyuha]

А DataArrival ловить не пробовал?

Да пробовал. Глухо как в танке. Я же говорю - даже TCP-соединение не устанавливает там и не может быть ни чего.

[artyuha]

Я уже думаю может это из-за того что у меня ВПН-соединение, но ведь с нттп-серверами конектиться. Значит на уровне ТСП все должно быть путем. Ума не приложу

[GSerg]

Я же говорю - даже TCP-соединение не устанавливает там и не может быть ни чего.

То есть ты не стал пробовать то, что по ссылке.
И ещё и 4 постинга подряд.
Это забавно, да.

[artyuha]

И ещё и 4 постинга подряд.

Писал их по ходу прихода мыслей

Это забавно, да.

И рейтинг надо повышать . Шутка.

То есть ты не стал пробовать то, что по ссылке.

Не пойму от куда такой вывод. Ни чего нового из этой ссылки я не подчерпнул, все эти темы я читал до того как задавать вопрос.
ws2.LocalPort = 0 задаю, имя сервера пишу без http (и ежу понятно - сервер почтовый). Что я пропустил не пойму.

Что примечательно почтовым ящиком, который выдали при подключении к домашеней сети все удается, а внешними нет. Я думаю превый сервер видит мой локальный АйПи, а внешнии АйПи прокси. Может в этом причина.
Тогда как удается Аутлуку сообщения слать?

[GSerg]

Что я пропустил не пойму.

Про события пропустил. Всё.

[artyuha]

Про события пропустил. Всё.

Нефига. В моем тестовом проекте:

Код: Выделить всё

Private Sub ws2_Connect()
MsgBox "Ok", vbInformation
End Sub


Должна срабатывать при соединении. Не срабатыват.

Код: Выделить всё

Private Sub ws2_DataArrival(ByVal bytesTotal As Long)
   Dim strData As String
   ws2.GetData strData
   
   txtDataServak.Text = txtDataServak.Text & vbCrLf & strData
End Sub


При соединении с СМТП-сервером должен слать какие-то данные. Данные не приходят.

Код: Выделить всё

Private Sub Timer_Timer()
Dim n As Byte
n = ws2.State
lbl.Caption = Left$(lbl.Caption, Len(lbl.Caption) - 1) & n
Select Case n
Case Is = 0
  lbl2.Caption = "Порт закрыт"
Case Is = 1
  lbl2.Caption = "Порт открыт"
Case Is = 2
  lbl2.Caption = "Порт прослушивается"
Case Is = 3
  lbl2.Caption = "Рассмотрение связи"
Case Is = 4
  lbl2.Caption = "Разрешение хоста"
Case Is = 5
  lbl2.Caption = "Хост разрешен"
Case Is = 6
  lbl2.Caption = "Подключение к серверу"
Case Is = 7
  lbl2.Caption = "Связь установлена"
Case Is = 8
  lbl2.Caption = "Связь закрывается..."
Case Is = 9
  lbl2.Caption = "Ошибка"
End Select
End Sub


Таймер перепроверяет состояние соединения с частотой в 200 Гц.
Установка соединения останавливается при статусе 6 ("Подключение к серверу"), а мне надо - 7("Связь установлена")

Я конечно далеко не профессионал в программинге, но и не прид-рок. Не знаю как Вам это доказать. Могу справку с больници взять . Я реально не знаю почему нет соединения, а не голову Вам морочу.

Может быть кто-то выручит. Проверит мою прогу на своем соединении и мне ответит как прошел коннект, какое у него соединение.
Я грешу на баги в сети. Уже не знаю куда думать.
Зарание спасибо

[Хакер]

220 mail.ru ESMTP Fri, 31 Aug 2007 13:30:28 +0400

Работает...

Десконект

Десризпегд.

<всякие там ServakKilentPodkluchitsya>

Аналогично.

[artyuha]

Десконект

Десризпегд.

<всякие там ServakKilentPodkluchitsya>

Аналогично.

. Так и знал - обарут. Я же говорю тестовая прожка. Не приколупуйся.

220 mail.ru ESMTP Fri, 31 Aug 2007 13:30:28 +0400

Работает...

А какое у тебя соединение и инетом?
А че же у меня нет коннекта? У кого-то есть какие-то соображения?
Повторюсь: с http серверами соединяеться, с почтовых клиентов почта идет.

Хоть квартирами с Вами меняйся.

Москвичи!!! Луганск трехкомнатка, до центра 15 мин. на трамвае (0,1 $ проезд). Рассмотрю все варианты с коннектом

[shady]

В прилагаемом проекте нет

Код: Выделить всё

txtDataServak

.
Заменив на другой текстбокс тоже пишет:

220 mail.ru ESMTP Fri, 31 Aug 2007 13:55:13 +0400

[Хакер]

А какое у тебя соединение и инетом?

artyuha
Сетевая карта <--Eth--> Свич <---Eth---> Адсл-модем с роутером <---DSL----> DSLAM <----- ХЗ-что, спросите у провайдера...


Проверь все брандауэры, fire-wall-ы и т.д.

Так и знал - обарут. Я же говорю тестовая прожка. Не приколупуйся.

И? Показать свои "тестовую прожку" ?

[artyuha]

Проверь все брандауэры, fire-wall-ы и т.д.

Так и знал - обарут. Я же говорю тестовая прожка. Не приколупуйся.

И? Показать свои "тестовую прожку" ?

А по проще можно как-нибуть? Аутлук же шлет. Как он енто делает?

[iGrok]

У тебя фаерволл стоит? Брандауэр винды отключен?
Может у тебя в фаерволле запрещены исходящике на 25 со всех прог, кроме аутлука?
А может, исходящие идут через рилей провайдера, и в аутлуке это прописано?
Вариантов масса, и догадаться почему именно у тебя не работает то, что работает у других - нереально.
Впрочем, есть radmin? ,-)
Хотя если у тебя фаерволл, то он и радмина не пустит...

[Дмитрий_Иванов]

Хотя мне удавалось установить соединение со своим почтовым сервером smtp.lds.net.ua

Подскажите в чем причина.

Приветствую artyuha! Не думал, что здесь соседа по локалке найду. Кстати, у меня таже самая трабла. Написал прогу, как ты и говорил, на lds'e работает, а на mail.ru не хочет.
Воздействие других прог отпадает. Уже все проверял, а тем более у клиента та же трабла и сетка другая.
Единственно, о чем здесь не говорилось, то это то, что ты не попадешь на smtp.mail.ru из нашей сети. Юзай smtp.lds.net.ua плюс ко всему авторизация. Это у них в правилах оговорено, что отправка почты только через их сервак.
Отпишись, вместе будем решать проблему. Я в локалке DMSoft.

[iGrok]

А может, исходящие идут через рилей провайдера, и в аутлуке это прописано?

Собственно =)

[artyuha]

Отпишись, вместе будем решать проблему. Я в локалке DMSoft.

Облизательно отпишу тебе на мыло . Про правила я не читал, но уже подозреваю, что у них какойто фильтр стоит.
У меня созрело решение этой проблемы. Я хочу отсылать почту через SOCKS-сервер. Я думаю они (админы ЛДС-ники) не будут анализировать весь исходящий трафик. Подключаться я буду к 1080 порту, а каманду на соединение с СМТП серверам передовать в СОКС парамертрах. Мне кажеться это решение проблемы. Правда у нее куча недостатков. Бесплптные СОКС-серверы быстро мрут да и находить новые списки - попаришься.
Есть еще одно решение - соберемся вместе купим пивка и пойдем разбираться с нашими админами . Пусть настраивают сеть как у людей

У меня пока времени нехватает разобраться с СОКСами, но как тока заделаю тестовую прожку и свежий список сокс серверов отправлю тебе.

[iGrok]

Отпишись, вместе будем решать проблему. Я в локалке DMSoft.

Облизательно отпишу тебе на мыло . Про правила я не читал, но уже подозреваю, что у них какойто фильтр стоит.
У меня созрело решение этой проблемы. Я хочу отсылать почту через SOCKS-сервер. Я думаю они (админы ЛДС-ники) не будут анализировать весь исходящий трафик. Подключаться я буду к 1080 порту, а каманду на соединение с СМТП серверам передовать в СОКС парамертрах. Мне кажеться это решение проблемы. Правда у нее куча недостатков. Бесплптные СОКС-серверы быстро мрут да и находить новые списки - попаришься.
Есть еще одно решение - соберемся вместе купим пивка и пойдем разбираться с нашими админами . Пусть настраивают сеть как у людей

У меня пока времени нехватает разобраться с СОКСами, но как тока заделаю тестовую прожку и свежий список сокс серверов отправлю тебе.

Сеть как у людей.. Вы для начала правила почитайте..