Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отправка почты через cdo / 17 сообщений из 17, страница 1 из 1
18.09.2016, 08:33
    #39310950
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Добрый день!
имеется приложение на VB6.0, в котором работает стандартный код для отправки почты:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
  Const CDO_Cnf = "http://schemas.microsoft.com/cdo/configuration/"
Dim oCDOCnf As Object, oCDOMsg As Object
...
 Set oCDOCnf = CreateObject("CDO.Configuration")
    With oCDOCnf.Fields
        .Item(CDO_Cnf & "sendusing") = 2
        .Item(CDO_Cnf & "smtpauthenticate") = 1
        .Item(CDO_Cnf & "smtpserver") = "smtp.inbox.ru"
        .Item(CDO_Cnf & "smtpserverport") = 25
        .Item(CDO_Cnf & "smtpusessl") = True
        .Item(CDO_Cnf & "sendusername") = sUsername
        .Item(CDO_Cnf & "sendpassword") = sPass
        .Update
    End With

Set oCDOMsg = CreateObject("CDO.Message")
    With oCDOMsg
        Set .Configuration = oCDOCnf
        .From = sFrom
        .To = sTo
        .Subject = sSubject
        .Send
    End With



Код стандартный, параметры для mail.ru известные, все работало без проблем на протяжении последних пары лет.
со вторника 13 сентября ))) код падает с ошибкой Транспорту не удалось подключиться к почтовому серверу.
причем эта ошибка появляется как на боевом сервере (Win Server 2008 R2), так и на компе разработчика (Win XP), использующих для доступа в интернет разных провайдеров в разных городах.

антивирусов на компах нет
менять порт с 25 на 465 я пробовал
из командной строки telnet smtp.inbox.ru 25 и telnet smtp.inbox.ru 465 проходят успешно

посоветуйте, пожалуйста, что еще можно проверить для обнаружения причины ошибки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.09.2016, 13:48
    #39310978
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya,

Судя по переменным - код, вероятно, был взят отсюда: Как отправить письмо из Excel?
там в комментариях есть такие строки:
Код: vbnet
1.
2.
3.
'если необходимо указать SSL
'.Item(CDO_Cnf & "smtpserverport") = 465 'для Яндекса и Gmail 465
'.Item(CDO_Cnf & "smtpusessl") = True


почти все почтовики примерно год-полтора назад сделали обязательным шифрование. Попробуйте добавить эти строки в свой код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 09:02
    #39311138
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
эта строка в коде есть:
Код: vbnet
1.
.Item(CDO_Cnf & "smtpusessl") = True



раньше работало по ssl по порту 25. сейчас порт 465 я также попробовал.

в том то и прелесть ситуации, что непонятно что идет не так (
как можно дополнительно проверить ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 11:06
    #39311185
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya,
а ошибки какие-то есть? Не пробовали выводить Err.Number после отправки? Может дело реально в сервере.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 11:47
    #39311207
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
код падает с ошибкой Транспорту не удалось подключиться к почтовому серверу.
номер ошибки -2147220973
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 12:51
    #39311240
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya,

номер ошибки гласит, что интернет скорее всего недоступен. Ищите в настройках, что мешает отправить запросы в интернет программно. Может в настройках IE что-то не то.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 14:52
    #39311296
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
коллеги, кто разбирается в библиотеке CDO, подскажите вариант узнать более точную причину ошибки
Код: html
1.
 № -2147220973 Транспорту не удалось подключиться к почтовому серверу.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 15:50
    #39311347
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya,

ну ошибка-то сама за себя говорит. Какие еще пояснения? Вы не через прокси, случаем, подключаетесь?
Код: vbnet
1.
2.
.Item(CDO_Cnf & "urlproxyserver") = проксисервер
.Item(CDO_Cnf & "proxyserverport") = порт проксисервера
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 15:58
    #39311359
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
не может эта ошибка быть истинной причиной, так как
Код: html
1.
telnet smtp.inbox.ru 25 и telnet smtp.inbox.ru 465 проходят успешно



если бы не было интернет-соединения, то телнет не подключился бы (((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 16:29
    #39311386
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
VolodyaТранспорту не удалось подключиться к почтовому серверуВам же это пишут? Значит CDO не может подключиться к серверу. Прокси попробовали?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 16:30
    #39311389
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
и еще вопрос попутный: падает прямо сразу? Не пробовали Вы до этого со своего ящика рассылку множества писем отправлять? Многие серверы ставят ограничения по массовой отправке писем и как следствие, Ваш ящик мог просто попасть в черный список...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 16:40
    #39311398
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
вроде дело сдвинулось )
я попробовал отправку почты с другого компа в этой сети - прошло успешно.

итого: не идет отправка с WinXP и WinServer 2003 R2
идет отправка с Win 7

в первом случае IE 6, на Win 7 - IE 11

как вы думаете возможна проблема из-за древности IE ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 18:03
    #39311453
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodyaвозможна проблема из-за древности IE ?
еще днем Вам написал:
The_PristИщите в настройках, что мешает отправить запросы в интернет программно. Может в настройках IE что-то не то
проблемы могут быть какие угодно. Кто его знает что у Вас там внезапно поменялось...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 18:42
    #39311464
Volodya
Volodya
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Спасибо за помощь!

Коллеги, у кого есть свободное время и комп с установленным IE 8, проверьте, пожалуйста работу скрипта из ссылки выше.
эта информация поможет мне принять решение об обновлении IE с 6 на 8 версию.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 19:26
    #39311487
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya,

и так скажу: версия ни при чем. У меня этот код работает фиг знает с какой версии IE без проблем. Ищите в настройках IE, а не в версиях. Но это опять же не факт - только одно из предположений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2016, 23:23
    #39311557
Дмитрий77
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Могу подкинуть идею.
Для любого SSL сервера, будь то https, smtp, pop3 и т.п. требуется сертификат (valid SSL certificate), иногда его нет. Для https это когда вы видите предупреждение в браузере: типа сервер не имеет сертификата, продолжить? не продолжить?
Я с этим хорошо покопался год назад.
В Net.Mail ошибку сертификата можно обойти.
В CDO -никак, мне во всяком случае не удалось. CDO -он давно писался, тогда это все (SSL) не шибко актуально еще было.

Изучай:
SSL:Удаленный сертификат недействителен согласно результатам проверки подлинности.

А ошибку CDO в случае "поганого сертификата" выдает аккурат как у тебя.
17681426

Некий коммент. На mail.ru(он же inbox.ru, он же bk.ru) валидный сертификат типа есть. Но кухня эта иногда подглючивает. Т.е. люди жалуются что при отправке из Outlook Office например иногда возникает предупреждение (зависит хз от чего, м.б. от конкретного компа). Лечится вроде как установкой этого ("невалидного") сертификата себе на комп и запихиванием его в доверенные, но это ты уж сам гугли.
Идею куда копать я дал, причем на 99% уверен что попал в точку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2016, 23:31
    #39322340
Дмитрий2221
Дмитрий2221
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отправка почты через cdo
Volodya, в googlе нужно поставить галку Ненадежные приложения разрешены
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отправка почты через cdo / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 144ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155416]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 36ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 11ms
total:  144ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]