VB. Отправка через Winsock - где найти подходящий smtp?
Здравствуйте.
Долго лазили по различным FAQ, руководствам, но отчаявшись решили обратиться к профессионалу.
Прошу вашей помощи в следующем вопросе:
Написали мы программу, там для отправки отзыва о ней есть функция (WinSock). До недавнего времени она работала, но потом вдруг неожиданно "отключилась".
В теле указывается smtp сервер, откуда производится запрос (возможно, проблема в этом - не все сервера поддерживают удаленную отправку писем с них. До этого мы использовали стандартный smtp.mail.ru, но через нескольких месяцев отсылка перестала работать - возможно, они заблокировали эту функцию?)
Вот сам текст неработающей ф-ии (подчеркиваю - до недавнего времени все было нормально):
wsMail.SendData "FROM: " & From & vbCrLf
wsMail.SendData "TO: " & Recipient & vbCrLf
wsMail.SendData "SUBJECT: " & Subject & vbCrLf & vbCrLf
<!СТОПОРИТСЯ ЗДЕСЬ!>
wsMail.SendData Body & vbCrLf & vbCrLf
wsMail.SendData vbCrLf & "." & vbCrLf
Программа стопорится, и "не может соединиться с сервером".
Кстати, на одном из форумов нашел след. сообщение:
"...тут поможет токо прямая отправка через SMTP (и то не всегда, могут быть закрытыми исходящие соеденения)" - а где же найти smtp, поддерживающие исходящии сообщения (чтоб через нашу программу отсылать)?
Пожалуйста, помогите найти ошибку, или укажите альтернативные варианты решения поставленной проблемы.
Будем благодарны за любую информацию.
С уважением, Сергей Петухов
Долго лазили по различным FAQ, руководствам, но отчаявшись решили обратиться к профессионалу.
Прошу вашей помощи в следующем вопросе:
Написали мы программу, там для отправки отзыва о ней есть функция (WinSock). До недавнего времени она работала, но потом вдруг неожиданно "отключилась".
В теле указывается smtp сервер, откуда производится запрос (возможно, проблема в этом - не все сервера поддерживают удаленную отправку писем с них. До этого мы использовали стандартный smtp.mail.ru, но через нескольких месяцев отсылка перестала работать - возможно, они заблокировали эту функцию?)
Вот сам текст неработающей ф-ии (подчеркиваю - до недавнего времени все было нормально):
wsMail.SendData "FROM: " & From & vbCrLf
wsMail.SendData "TO: " & Recipient & vbCrLf
wsMail.SendData "SUBJECT: " & Subject & vbCrLf & vbCrLf
<!СТОПОРИТСЯ ЗДЕСЬ!>
wsMail.SendData Body & vbCrLf & vbCrLf
wsMail.SendData vbCrLf & "." & vbCrLf
Программа стопорится, и "не может соединиться с сервером".
Кстати, на одном из форумов нашел след. сообщение:
"...тут поможет токо прямая отправка через SMTP (и то не всегда, могут быть закрытыми исходящие соеденения)" - а где же найти smtp, поддерживающие исходящии сообщения (чтоб через нашу программу отсылать)?
Пожалуйста, помогите найти ошибку, или укажите альтернативные варианты решения поставленной проблемы.
Будем благодарны за любую информацию.
С уважением, Сергей Петухов
SMTP сервер служит для принятия письма от пользователя и дальнейшей пересылки его по цепочке дальше.
Известный факт, что многие SMTP сервера работают только для своих и не занимаются пересылкой писем из вне. Сам я mail.ru не пользуюсь, но его всегда часто колбасило, так что в этом отказе нет ничего удивительного... думаю Вам надо искать другой публичный smtp сервак или заводить свой...
А проверить smtp-сервер достаточно просто, пошлите письмо сами по почтовой программе, настроенной на smtp.mail.ru и если вас пошлет, то проблема только в нем, а не в коде.
Известный факт, что многие SMTP сервера работают только для своих и не занимаются пересылкой писем из вне. Сам я mail.ru не пользуюсь, но его всегда часто колбасило, так что в этом отказе нет ничего удивительного... думаю Вам надо искать другой публичный smtp сервак или заводить свой...
А проверить smtp-сервер достаточно просто, пошлите письмо сами по почтовой программе, настроенной на smtp.mail.ru и если вас пошлет, то проблема только в нем, а не в коде.